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PREFACE 



This manual describes the BASIC Version 3.5 language 
which operates under control of the following operating 
systems: 

• NOS 1 for the CONTROL DATA® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems 

• NOS/BE 1 for the CDC® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems 



CDC offers guidelines for the use of the software 
described in this manual. These guidelines appear in 
appendix E. Before using the software described in this 
manual, the reader is strongly urged to review the content 
of this appendix. The guidelines recommend use of this 
software in a manner that reduces the effort required to 
migrate application programs to future hardware or 
software systems. 

BASIC 3 is an extension of the original BASIC language 
which was designed and implemented at the Dartmouth 
College Computation Center. Although BASIC is normally 
used interactively from a remote terminal, BASIC 
programs can be compiled and executed as batch 
programs. The CDC® CYBER Interactive Debug (CID) 
facility can be used in interactive mode to debug a BASIC 
program. 

BASIC is an all-purpose programming language that 
includes features which render it well-suited for scientific, 
business, and educational applications. BASIC provides a 
small but powerful set of easy-to-learn statements that are 
similar to English and written in free format. Some of the 
more important features provided by BASIC are: 

Numeric and character string manipulation 



Array definition and redimensioning 



Access to trigonometric, matrix, and string functions 



Facility for writing multiple-line and multiple- 
argument user-defined functions 



Facility for calling BASIC and non-BASIC subroutines 

Facility to chain to other BASIC programs 

Matrix I/O for 1- and 2-dimensional numeric and string 
arrays 



• Output format determination, including various 
commercial formats 



• Manipulation of coded and binary files, including 
random access for binary files 



• Error detection and processing during program 
execution 



Facility to trace program flow 



• Facility to debug a program (CYBER Interactive 
Debug) 

This document is intended to describe these and other 
BASIC features to both the nonprogrammer and the 
experienced programmer. The information in this manual 
is provided in three major parts: 

• Section 1 is a primer or introduction to the BASIC 
language directed at the nonprogrammer. Appendix H 
contains sample BASIC programs. 



Sections 2 through 12 include reference information 
that expands on section 1 information and is directed 
at the experienced programmer. Appendixes A 
through D support and summarize information in these 
sections. 



• Appendix E contains general feature use guidelines to 
ensure ease of migration to future hardware or 
software systems and appendix F contains an overview 
of the differences between this version of BASIC 
(BASIC 3.5) and the previous version (BASIC 3.4). 
Appendix G summarizes those features that are 
described in the American National Standard for 
Minimal BASIC as implementation-defined. 

You can find additional pertinent information in the 
Control Data Corporation manuals. The NOS Manual 
Abstracts and the NOS/BE Manual Abstracts are 
pocket-sized manuals containing brief descriptions of the 
contents and intended audience of all NOS and NOS/BE 
manuals and all the product set manuals of these two 
systems. The abstracts manuals can be useful in 
determining which manuals are of greatest interest to a 
particular user. The Software Publications Release History 
serves as a guide in determining which revision level of 
software documentation corresponds to the Programming 
System Report (PSR) level of installed site software. 

The manuals are listed alphabetically in groupings that 
indicate relative importance to the readers of this manual. 
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The following manuals are of primary interest: 

Publication 
Publication Number 

Network Products Interactive Facility User's Guide 60455260 

Network Products Interactive Facility Version 1 60455250 

Reference Manual 

NOS Version 1 Reference Manual, Volume 1 of 2 60435400 

NOS/BE V ersion 1 Reference Manual 60493800 

The following manuals are of secondary interest: 

Publication 
Publication Number 

CYBER Interactive Debug Version 1 Reference Manual 60481400 

CYBER Loader Version 1 Reference Manual 60429800 

INTERCOM Version 4 Reference Manual 60494600 

INTERCOM V ersion 5 Reference Manual 60455010 

NOS Time-Sharing Version 1 User's Guide 60436400 

NOS Time-Sharing Version 1 User's Reference Manual 60435500 

NOS Version 1 Manual Abstracts 84000420 

NOS/BE Version 1 Manual Abstracts 84000470 

Software Publications Release History 60481000 

Text Editor Reference Manual 60436100 

XEDIT Version 3 Reference Manual 60455730 

CDC manuals can be ordered from Control Data Corporation, Literature and 
Distribution Services, 308 North Dale Street, St. Paul, Mimesota 55103. 



This product is intended for use only as described in 
this document. Control Data cannot be responsible for 
the proper functioning of undescribed features or 
parameters. 
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NOTATIONS 



Certain notations are used throughout this manual. The 
notations and their meanings are: 

Horizontal ellipsis indicates repetition. 

Vertical ellipsis indicates program lines 
not shown. 



Underlined Underlined or lowercase indicates 
or user-supplied lines when operating 

Lowercase from a terminal. 



A 
Shading 



Delta indicates a space (blank). 

Carriage return denotes the trans- 
mission key on the keyboard. 

Shading indicates Control Data 
extensions to the language described in 
the American National Standard 
x3.60-1978, BASIC. Language and 
processing that are in the standard, but 
are implementor-defined, are not 
shaded. 
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BASIC PRIMER 



Modern digital computers are designed for a wide range of 
applications. However, all digital computers have certain 
common characteristics; they all perform tasks specified 
by a set of instructions. 

A set of sequential instructions designed to solve a specific 
problem is called a program. A program can perform a 
simple task, such as adding or subtracting two numbers, or 
printing a single letter or digit. However, a program 
usually performs a more complicated task. A program for 
a complete scientific computation could require a few 
thousand computer instructions. 

Computer programs process or manipulate information 
called data. A program can be used to perform 
calculations by using data, and to print out the results. 
Most programs permit new data to be input each time the 
program is used. The three phases of program operation 
are input, computation, and output. The process of a 
program performing tasks in a computer is called program 
execution, or running a program. 



PROGRAMMING AND LANGUAGES 

Computers can execute thousands and even millions of 
computer instructions each second; therefore, computer 
instructions must be structured in a form suited to the 
computer's architecture. Writing a program by using 
computer instructions in the form used directly by the 
computer (machine instructions) is tedious and 
time-consuming. In order to simplify writing programs, 
computer specialists have developed several high-level, 
easy-to-use, programming languages and associated 
compilers and translators to convert these high-level 
languages to machine instructions. BASIC, the beginner's 
all-purpose symbolic instruction code, is one such 
high-level language. BASIC was originally developed by 
professors John G. Kemeny and Thomas E. Kurtz at 
Dartmouth College. 

This section describes the process of writing and executing 
a BASIC program by solving a sample problem. The BASIC 
statements used in salving the problem are explained. This 
section is intended for nonprogrammers. This section 
provides the information necessary to write BASIC 
programs and understand the more detailed descriptions of 
the BASIC language provided in the sections that follow 
this section. 



STATEMENT OF THE PROBLEM 

The following general description outlines a manufacturing 
system problem that is to be solved by using BASIC. In this 
problem, F represents fixed costs per year associated with 
production, C represents variable costs incurred per unit, 
and V represents the annual volume of production (and 
sales) in units. The total cost incurred per year is 
T=F + C*V. If the revenue per unit made (and sold) is R 
per unit, then the total annual revenue is R1 = R*V. The 
profit obtained on an annual basis is the difference 
between Rl and T, if that result is positive. A loss occurs 
if Rl - T is negative. The break-even point is reached when 
the volume is sufficient to make Rl =T. 



For example, a company operates with fixed costs of 
$1 million per year, variable costs of $10 per unit, and a 
revenue of $30 per unit of production. Using this data, 
answer the following questions: 

1. What is the break-even point? 

2. If the predicted sales are 25O0O units, what is the 
expected profit or loss? 

3. What is the expected profit or loss for sales of 50000, 
75000, and 100000 units? 

The BASIC program in figure 1-1 answers questions 1 and 2 
of the problem. The solution to question 3 is provided 
later in this section. 



001 


HEM 


THIS IS A BKEAK-EVEN PK0GKAM 


002 


HEM 


THE F0LL0WING VAKIABLES AKE 


USED 


003 


KEM 


FIXED ANNUAL C3ST 




F 


004 


KEM 


VAKIABLE C0ST PEK UNIT 




C 


00 5 


HEM 


SALES KEVENUE PEK UNIT 




K 


006 


KEM 


SALES VOLUME 




V 


00 7 


kEM 


BKEAK-EVEN POINT CViJLUME) 




VI 


00 8 


KEM 


T0TAL C0ST 




T 


00 9 


HEM 


TOTAL KEVENUE 




Kl 


010 


HEM 


PR0FIT/L0SS 




P 


01 1 


REM 








012 


KEM 








013 


kEM 


ASSIGN VALUES T0 F,C>K>V 






020 


LET 


F= 1000000 






030 


LET 


C=10 






040 


LET 


R = 30 






050 


LET 


V=25000 






060 


REM 








070 


KEM 


COMPUTE BKEAK-EVEN POINT 






080 


LET 


V1=F/CK-C> 






090 


PKINT "BKEAK-EVEN P0INT="JVU' 


"VOLUME 




UNITS" 






100 


KEM 








110 


KEM 


C0MPUTE TOTAL C0ST 






120 


LET 


T=F+C*V 






130 


KEM 








140 


KEM 


COMPUTE TOTAL KEVENUE 






150 


LET 


Rl=K*V 






160 


KEM 








170 


REM 


COMPUTE PR0FIT/LOSS 






180 


LET 


P=K1-T 






200 


IF V>V1 THEN 230 






210 


PKINT "L0SS = S"*P> ,, V0LUME ="'J 


VJ 


"UNITS" 


220 


G0T2 


240 






230 


PKINT 'VK0F IT=S ,, iP» , W3LUME = ";y 




•UNITS" 


240 


END 









Figure 1-1. Break-Even Program 

ANALYSIS OF STATEMENTS 

Each line of a BASIC program is called a statement; each 
statement must begin with a line number. Line numbers 
normally indicate the sequence in which the computer is to 
execute the statements. The following statements are 
used in the break-even program shown in figure 1-1. 
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REM Statement 

Figure 1-2 shows a segment of the break-even program 
that contains the REM statement. The REM statement 
allows the user to insert remarks. These remarks increase 
readability and comprehension in a program; they have no 
effect on the program during execution. A maximum of 
•S? 1 characters can be included in a REM statement. 



110 REM COMPUTE TOTAL COST 

120 LET T = F + C * V 

130 REM 

140 REM COMPUTE TOTAL REVENUE 

150 LET Rl = R * V 

160 REM 

170 REM COMPUTE PROFIT / LOSS 

180 LET P = Rl - T 



00 1 


REM 


THIS IS A BREAK-EVEN PR3GRAM 


002 


REM 


THE F3LL3WING VARIABLES ARE USED: 


003 


REM 


FIXED ANNUAL C0ST 


F 


004 


REM 


VARIABLE C3ST PER UNIT 


C 


005 


REM 


SALES REVENUE PER UNIT 


R 


006 


REM 


SALES VOLUME 


V 


007 


HEM 


BREAK-EVEN P3INT CV3LUME) 


VI 


008 


REM 


T3TAL C0ST 


T 


009 


REM 


T3TAL REVENUE 


Rl 


010 


REM 


PR3FIT/L3SS 


P 


01 1 


REM 






012 


REM 







Figure 1-2. REM Statement Lines 

Figure 1-2 shows the use of the REM statement to identify 
the type of program, the variables used, and the variable 
identifiers. These identifiers are used later in program 
computations. 



LET Statement 

The LET statement specifies that the variable (quantity 
that can vary during execution of the program) to the left 
of the equals sign be set to a value (the value is the 
formula or expression to the right of the equals sign). 

Examples: 

• Constant Value Assignment - Statements 20 through 
50 in the following sample program assign values to 
variables F, C, R, and V, which are used later in 
computing the break-even point. The values for F, C, 
and R represent dollars and the value for V represents 
units. 

013 REM ASSIGN VALUES TO F,C,R,V 
020 LET F = 1000000 
030 LET C = 10 
040 LET R = 30 
050 LET V = 25000 



Statement 120 directs the computer to multiply V (25000) 
by C (10) and add the product (250000) to F (1000000) 
equaling a sum of 1250000. This sum is assigned to the 
variable T. 

In computing total revenue, the volume (V) is multiplied by 
the revenue per unit (R) (25000*30), and the product 
(750000) is assigned to Rl. 

To determine profit or loss, the total cost (T) is subtracted 
from the total revenue (Rl): (750000 - 1250000) and the 
remainder (-500000) is assigned to P. 

PRINT Statement 

The PRINT statement can be used to: print out a value; 
print a message; print a combination of a value and a 
message; and print a blank line. BASIC normally separates 
an output line into five print zones, each 15 characters 
long. Spacing is controlled with commas and semicolons 
embedded in the PRINT statement. The comma is used to 
space over to the next print zone (insert blank spaces 
between items); the semicolon permits items to be printed 
with no additional blanks between them. When printing 
headings or labels, enclose the heading or label in quotes in 
the PRINT statement. To print a blank line, simply use the 
PRINT statement without specifying what to print. 

Statement 080 in figure 1-3 illustrates the assignment of a 
value to a variable by using the LET statement. 
Statement 090 illustrates the use of the PRINT statement 
to print an identifying label and the derived value. 

Statement 080 directs the computer to subtract C from R 
(30-10) and, by using the remainder (20) as a divisor, divide 
F (1000000) by 20. The quotient (50000) is then assigned to 
the variable VI. (The symbol / indicates divide.) 
Statement 090 directs the computer to print the value 
of VI and the BREAK-EVEN POINT identifying label. The 
unit of measure for VI is labeled VOLUME UNITS. When 
executed, this PRINT statement in figure 1-3 produces: 

BREAK-EVEN POINT = 50000 VOLUME UNITS 



Formulas Value Assignment - In the sample program, 
statements 120, 150, and 180 compute total cost, total 
revenue and profit or loss, respectively, and assign 
these values to variables T, Rl, and P. The symbol * 
specifies multiplication. The value of the variable or 
expression to the right of the equals sign becomes the 
value of the variable to the left of the equals sign. 
BASIC conforms to the normal algebraic rules for 
order of arithmetic computation. (See Arithmetic 
Expressions in this section.) 



IF, GOTO, and END Statements 

In the sample program (figure 1-1), if sales volume V is 
greater than the break-even volume, a profit is earned. If 
the sales volume is less than the break-even volume, a loss 
is incurred. 

The IF statement at line number 200 in figure 1-4 directs 
the program execution to the statement at line 



57 


REM 


C0MPUTE 


BREAK- 


•EVEN 


P3INT 






080 


LET 


VI 


= FVCR-C) 










091 


PRINT 


•BREAK 


-EVEN 


P3INT 


="J VI t 


"V3LUME 


UNITS" 


I 00 


REM 

















Figure 1-3. PRINT Statement Line 



| 1-2 
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number 230, if the condition V is greater than VI is met. 
The IF statement directs execution to the following 
statement line number 210, if the condition is not met. 
Line 200 illustrates how execution sequence by line number 
can be altered. 

The F statement (line 200) selects the print label PROFIT 
or LOSS to be printed with the values associated with 
variables P and V. 

In figure 1-4, the PRINT at 210 is executed because 
V= 25000 and VI = 50000. After executing the PRINT 
statement, the computer then executes statement 220. 
Statement 220 is a GOTO statement that directs the 
computer to continue execution at statement 240. 



200 


IF V> 


VI THEN 


230 










210 


PRINT 


"L0SS = 


$•• 


IP. 


"V0LUME 


= "#V 


"UNITS" 


220 


G0T0 


240 












230 


PRINT 


"PR0F1T 


=$" 


IP, 


"V0LUME= 


"i\jr 


•UNITS" 


240 


END 















Figure 1-4. IF, GOTO, and END Statement Lines 



The END statement directs the computer to stop executing 
the BASIC program. Its corresponding line number must be 
the highest in the program. 



BREAK-EVEN PROGRAM AND OUTPUT 

Figure 1-5 shows the output from the break-even program, 
listed in figure 1-1, that answers questions 1 and 2. After 
the program is entered into the computer, the BASIC 
compiler is directed to execute the program. 

EXPRESSIONS IN BASIC 

An expression can be simple, that is, consisting of one 
term (A); or complex, that is, consisting of two or more 
terms connected by operators (A+B-C). Expressions 
evaluate to a single value, which can later be used in 
computation, or can be used in determining program 
execution sequence. (See line number 200.) There are 
three types of expressions in BASIC: arithmetic, 
relational, and string. String expressions are discussed in 
section 3 of this manual; arithmetic and relational 
expressions are discussed in the following paragraphs and in 
section 3. 



O0I 


KEM 


THIS IS A BREAK-EVEN PR0GRAM 


002 


REM 


THE F0LL3WING VARIABLES AkE 


USED 


003 


KEM 


FIXED ANNUAL C0ST 


F 


004 


KEM 


VARIABLE CAST PEK UNIT 


C 


005 


KEM 


SALES REVENUE PEK UNIT 


K 


006 


KEM 


SALES V0LUME 


V 


007 


KEM 


BREAK-EVEN P0INT CV0LUME) 


VI 


008 


REM 


T0TAL C0ST 


T 


009 


REM 


T0TAL kEVENUE 


Kl 


010 


KEM 


PK0FIT/L0SS 


P 


011 


KEM 






012 


KEM 






013 


REM 


ASSIGN VALUES T0 F.C.R.V 




020 


LET 


F=1000000 




030 


LET 


C=10 




040 


LET 


R=30 




050 


LET 


V=25000 




060 


KEM 






070 


REM 


C0MPUTE BREAK-EVEN P3INT 




080 


LET 


V1=F/CR-C> 




090 


PKINT "BREAK-EVEN P0INT="i VI ;"V0LUME UNITS" 


100 


REM 






no 


REM 


C0MPUTE T0TAL C0ST 




120 


LET 


T=F*C*V 




130 


KEM 






140 


KEM 


C0MPUTE T0TAL REVENUE 




150 


LET 


R1=R*V 




160 


REM 






170 


REM 


C0MPUTE PR0FIT/L0SS 




180 


LET 


P=R1-T 




200 


IF V>V1 THEN 230 




210 


PRINT "L0SS = $"1P,"V0LUME -" S Ml "UNITS" 


220 


G0T0 240 




230 


PRINT "PR0FIT = $"*P#"V0Lu"ME="JV» 


•UNITS" 


240 


END 






After the program is entered into the eomputer, the BASIC compiler is 


directed to execute the program. 


Below is the computer output after program execution. 




BREAK- 


EVEN P0INT = 50000 V0LUME UNITS 


LOSS = 


$-500000 V0LUME = 25000 UNITS 



Figure 1-5. Break-Even Program and Output 
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ARITHMETIC EXPRESSIONS 



TABLE 1-2. RELATIONAL OPERATORS 



Arithmetic expressions are formed from numeric variables, 
numeric constants, function references, and arithmetic 
operators. The arithmetic operators allowed for BASIC are 
shown in table 1-1. 

TABLE 1-1. ARITHMETIC OPERATORS 



Symbol 


Meaning 


-tutu 


Exponentiation ( t on 
some teletypewriters) 


/ 


Division 


* 


Multiplication 


+ 


Addition 


- 


Subtraction 


NOTE 


The circumflex (^) is the preferred character 
symbol for exponentiation. See Future System 
Migration Guidelines, appendix E. 



In the sample break-even program, operators (+, -, *, 
and /) are used in line numbers 080, 120, 150, and 180. The 
exponentiation operator raises a number to a specified 
power. For example, 2**3 means 2 raised to the third 
power, or 2'. 

The arithmetic operators have a hierarchy for evaluation: 
exponentiation; then multiplication and division; then 
addition and subtraction. Evaluation proceeds from left to 
right through an expression. The hierarchy is altered by 
the use of parentheses. When using parentheses in BASIC, 
the rules of algebra apply. For example, 2*3+2 = 8 and 
2*(3+2) = 10. 

Within a number in BASIC, commas cannot be used to 
separate decimal groupings. For example, ten million is 
written 10000000, not 10,000,000. 

A numeric variable (such as, F, C, R, or V in the sample 
program) is named with a single alphabetic character or an 
alphabetic character followed by a digit. The detailed 
rules for using numbers and variables are included in 
section 3. 

BASIC provides several mathematical functions that can be 
requested within an arithmetic expression such as, SINE, 
COSINE, and SQUARE ROOT. Functions are described in 
section 5. 



RELATIONAL EXPRESSIONS 

Relational expressions are formed by combining variables 
and/or constants into arithmetic expressions that are 
compared by using relational operators. Relational 
expressions are used in IF statements to compare two 
values. Table 1-2 illustrates the relational operators. 



Symbol 


Meaning 


= 


Equal to 


> or < 


Not equal to 




Greater than 


> = or = > 


Greater than or equal to 




Less than 


< = or = < 


Less than or equal to 



An example of the use of the relational operator, can be 
found in line number 200 of the sample break-even 
program. For more details and the rules for using 
relational operators, see section 2. | 



DEFINING AND READING DATA 

An efficient method of assigning values to variables is 
through the use of the READ and DATA statements. 



DATA AND READ STATEMENTS 

In the break-even program, values are assigned to variables 
by using LET statements as follows: 

013 REM ASSIGN VALUES TO F,C,R,V 

020 LET F = 1000000 

030 LET C = 10 

040 LET R = 30 

050 LET V = 25000 

060 REM 



Statements at line numbers 020 through 050 can be 
replaced with the following: 

035 DATA 1000000,10,30,25000 
037 READ F,C,R,V 



The DATA statement creates a block of data that is 
internal to the program. Within the DATA statement, 
values must be separated by commas. In the above 
program, the DATA statement precedes the READ 
statement; however, this is not required. The DATA 
statement can be placed anywhere in the program. The 
READ statement is used to access the values contained in 
the internal data block. The variables in the READ 
statement are assigned values sequentially from the data 
block; for example, F = 1000000, C=10, R=30, and 
V = 25000. This method is more efficient from the 
programmer's standpoint because only the associated 
DATA statements need to be changed for added or 
different data. Figure 1-6 illustrates the use of the READ 
and DATA statements in the break-even program. 
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001 REM 


THIS IS A BREAK-EVEN PR0GRAM 


002 REM 


THE F0LL0WING VARIABLES ARE USED: 


003 REM 


FIXED ANNUAL C0ST 


F 


004 REM 


VARIABLE C0ST PER UNIT 


C 


005 REM 


SALES REVENUE PER UNIT 


R 


006 REM 


SALES V0LUME 


V 


007 REM 


BREAK-EVEN P0INT (V0LUNE) 


VI 


008 REM 


T0TAL C0ST 


T 


009 REM 


T0TAL REVENUE 


Rl 


010 REM 


PR0FIT/L0SS 


P 


Oil REM 






012 REM 






013 REM 


ASSIGN VALUES T0 F.G.RW 


J New Inserts 


035 DATA 1000000*10*30*25000 


037 READ F»C,R*V 


J 


060 REM 






070 REM 


C0MPUTE BREAK-EVEN P0INT 




080 LET 


VI = F/CR-C) 




090 PRINT "BREAK-EVEN P0INT ="*V1 ."V0LUME UNITS" 


100 REM 






110 REM 


C0MPUTE T0TAL C0ST 




120 LET 


T = F «■ C * V 




130 REM 






140 REM 


C0MPUTE T0TAL REVENUE 




150 LET 


Rl * R * V 




160 REM 






170 REM 


C0MPUTE PR0FIT / L0SS 




180 LET 


P = Rl - T 




200 IF V > VI THEN 230 




210 PRINT "L0SS = $"*P»"V0LUME =" 


I VI "UN ITS" 


220 G0T0 


240 




230 PRINT " PR0FIT = $"1P*"V0LUME 


="1V» "UNITS" 


240 END 






When executed this program produces: 




BREAK-EVEN P0INT= 50000 V0LUME UNITS 


L0SS = $-500000 V0LUME = 25000 UNITS 



Figure 1-6. READ and DATA Statements 



LOOPING IN BASIC 

We are frequently interested in solving a problem in which 
a specified sequence of statements is executed a number of 
times. Each time the sequence is executed, a variable is 
assigned a different value. In programming, this is done by 
using a technique called looping. The following statements 
provide two methods for looping: 



• IF and GOTO statements 

• FOR and NEXT statements 

IF AND GOTO STATEMENTS 

In the original problem, question 3 requests the profit or 
loss for sales of values 50000, 25000, 75000, and 100000 
units. To solve questions 1 and 2 of the problem for these 
four values, a loop is inserted using the IF statement (line 
number 104 in figure 1-7) and the GOTO statement (line 
number 236). 



In figure 1-7, V is assigned the initial value of 25000 (line 
number 102). The statement of line number 104 then 
compares V to 100000. If V is greater than 100000, 
control is transferred to line number 240, then the loop 
ends. If V is not greater than 100000, line numbers 110 
through 236 are executed in the normal sequence. The 
statement of line 235 increments V by 25000, and the 
statement line number 236 transfers control back to 
line 104. Statement of line number 104 compares the new 
value of V to 100000 to determine whether or not to 
execute the loop again. Looping continues until 
V equals 100000. 

For each value of V, the values of T, Rl, and P are 
computed, and LOSS or PROFIT is printed depending on the 
value of V; this completes the execution of the loop in the 
break-even program. 

During the first pass through the loop, V equals 25000; 
during the second pass, V equals 50000; during the third 
pass, V equals 75000; and during the fourth pass, V equals 
100000. The printed output from the program (figure 1-8) 
shows the break-even point and the profit or loss for the 
four volume levels. 
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001 REM THIS IS A BREAK-EVEN PROGRAM 


002 REM THE FOLLOWING VARIABLES ARE USED: 


003 REM FIXED ANNUAL C0ST F 


004 REM VARIABLE COST PER UNIT C 


005 REM SALES REVENUE PER UNIT R 


006 REM SALES VOLUME V 


007 REM BREAK-EVEN P0INT < VOLUME) VI 


008 REM T0TAL C0ST T 


009 REM T0TAL REVENUE Rl 


010 REM PR0FIT/L0SS P 


Oil REM 


012 REM 


013 REM ASSIGN VALUES T0 F.d.R 


035 DATA 1000000*10.30 


037 READ F.C.R 


060 REM 


070 REM C0MPUTE BREAK-EVEN POINT 


080 LET VI = F/<R-C) 


090 PRINT "BREAK-EVEN POINT ="JV1 J"V0LUM£ UNITS" 


100 REM 


102 LET V = 25000 






104 IF V > 100000 THEN 240 










110 REM COMPUTE T0TAL COST 






120 LET T = F ♦ C * V 






130 REM 






140 REM C0MPUTE TOTAL REVENUE 






150 LET Rl = R * V 






160 REM 




LOOP 


170 REM COMPUTE PROFIT / LOSS 

180 LET P = Rl - T 

200 IF V > VI THEN 230 

210 PRINT "LOSS - $"J P.. "VOLUME =*'WUNITS" 

220 GOTO 235 

230 PRINT " PROFIT * $"JP, "VOLUME ="JVJ"UNITS" 






235 LET V * V ♦ 25000 




> 


' 236 GOTO 104 


240 END 



Figure 1-7. IF and GOTO Statements 



BREAK-EVEN POINT = 50000 


VOLUME UNITS 






LOSS = $ 


-500000 




VOLUME = 


25000 


UNITS 


LOSS = S 


V0LUME = 


50000 


UNITS 






PR3FIT 


= $ 500000 




VOLUME * 


75000 


UNITS 


PROFIT = 


= $ 1000000 




VOLUME = 


100000 UNITS 



Figure 1-8. Break-Even Program Output 



FOR AND NEXT STATEMENTS 

The sample program in figure 1-9 shows a loop created by 
using the FOR statement (line number 101) and the NEXT 
statement (line number 235). 



The FOR statement establishes the first value of V 
(25000), the final allowable value of V (100000), and the 
step value of (25000). Statements between the FOR 
statement and the NEXT statement are repeatedly 
executed until V is greater than the final allowable value. 
The value of V is incremented by the step value each time 
the NEXT statement is executed. Output from the 
program is identical to the output produced when the IF 
and GOTO statements controlled the loop. 



LISTS AND TABLES 

For some problems, it is desirable to present data or the 
solution in the form of a list or table; such lists and tables 
are called arrays. An array is an ordered collection of 
items (data elements) arranged in a multidimensional 
structure. A 1 -dimensional array, or list, is called a vector 
and a 2-dimensional array, or table, is called a matrix. 
These terms have been borrowed from mathematical 
terminology because vectors and matrices in BASIC obey 
other special properties expected by mathematicians. 
Arrays wil 

Variables are used to name arrays. The individual 
elements of an array, identified by the use of subscripts, 
are called subscripted variables. The subscripts, one for 
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001 REM THIS IS A BREAKEVEN PR0GRAM 


002 REM THE F0LL0WING VARIABLES ARE USED: 


003 REM FIXEO ANNUAL C3ST F 


004 REM VARIABLE C3ST PER UNIT C 


005 REM SALES REVENUE PER UNIT R 


006 REM SALES V3LUME V 


007 REM BREAK-EVEN P3INT (V0LUME) VI 


003 REM T0TAL C0ST T 


039 REM T3TAL REVENUE Rl 


010 REM PR3FIT/L0SS P 


Oil REM 


012 REM 


013 REM ASSIGN VALUES T0 F#C»R 


035 OATA 1000000* 10# 30 


037 REAO F,C»R 


060 REM 


070 REM C0MPUTE BREAK-EVEN P3INT 


080 LET VI = F/CR-C) 


090 PRINT "3REAK-EVEN P0INT ="* VI) "V3LUME UNITS" 


100 REM 




— >101 F3R V = 25000 T0 100303 STEP 25000 




110 REM COMPUTE T0TAL C0ST 




120 LET T = F ♦ C * V 




130 REM 




140 REM C3MPUTE T0TAL REVENUE 




150 LET Rl = R * V 




160 REM 




170 REM COMPUTE PR3FIT / LOSS 




180 LET P = Rl - T 




200 IF V > VI THEN 230 




210 PRINT "L0SS = $"IP»"V0LUME ="1 VI "UNITS" 




220 G0T0 235 




23T PRINT " PR0FIT = $"JP»"V0LUME -"1 V*"UNITS" 




L-J- 2J5 NEXT V 


240 END 



Figure 1-9. FOR...NEXT Loop Sample Program 



each dimension of the array, are position indicators that 
locate elements within the array. Subscripts are separated 
by commas and enclosed by parentheses. The first matrix 
subscript designates a row; the second matrix subscript 
designates a column. Numbering of the elements begins 
with zero; the first element in the first row and the first 
column has subscripts (0,0). 

Example: 

In the following matrix, the element designated by A(l,2) is 
circled. 



12 3 4 
5 6 (7) 8 
9 10 11 12 



In the break-even program, where the profit or loss for 
four different sales volumes is computed, the values V, P, 
T, and Rl can be organized in array form, with each array 
containing four elements. For each volume (V), an 
associated revenue (Rl), cost (T), and profit (P) are 
computed. 

In the sample program (figure 1-10), the DIM statement is 
used to specify each array as containing four elements (line 
numbers 039, 040, 041, and 042); however, the use of this 
statement is not required. To specify an array of up to 
I eleven elements, only the selected variable name and 



associated subscripts are required. If the array is to 
contain more or less than eleven elements, the DIM 
statement is required. The advantage of using DIM in this 
situation is the conservation of space because the use of a 
variable and subscript results in an automatic allocation of 
space for eleven array elements by BASIC. See section 3 
for additional information pertaining to the DIM statement. 

The DIM statement in line number 039 of figure 1-10 
reserves space for an array named V. The amount of 
space reserved is determined by the bound specifier; the 
bound for array V is 3. This means that the largest 
subscript for array V is 3 and that array V has four 
elements: V(0), V(l), V(2), and V(3) because a count of 
the elements begins with zero (0). The OPTION statement 
is described later in this manual. (See figure 1-11.) Arrays 
P, T, and Rl are similar. Figure 1-12 shows the method 
used for placing data into the array. 

The variable I is used to initialize the volume array V. 
The variable I is set to the value of zero, and is 
incremented within the FOR loop (line number 102) by 
25000 for each increment of J. The variable J is a 
subscript used to address the individual elements of 
array V; when J is zero, the first element is addressed. 
The statement at line 103 places the current value of I into 
the array V at the location identified by the current value 
of J. 3 is also used as a subscript for addressing the 
elements of arrays P, T, and Rl. 
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001 REM THIS IS A BREAK-EVEN PROGRAM 


002 REM THE FOLLOWING VARIABLES ARE USED 


003 REM FIXED ANNUAL COST 


F 


004 REM VARIABLE COST PER UNIT 


C 


005 REM SALES REVENUE PER UNIT 


R 


006 REM SALES VOLUME 


V 


007 REM BREAK-EVEN POINT (VOLUME) 


VI 


008 REM TOTAL COST 


T 


009 REM TOTAL REVENUE 


Rl 


010 REM PROFIT/LOSS 


P 


Oil REM 




012 REM 




013 REM ASSIGN VALUES TO F,C,R 




035 DATA 1000000,10,30 




037 READ F.C.R 




038 REM DEFINE ARRAYS FOR V,P,T,R1 




039 DIM V(3) 




040 DIM P(3) 




041 DIM T(3) 




042 DIM Rl(3) 




060 REM 




070 REM COMPUTE BREAK-EVEN POINT 




080 LET V1=F/(R-C) 




090 PRINT "BREAK-EVEN P0INT=";V1;"V0LUME UNITS" 


095 REM INITIALIZE ARRAY V, COMPUTE 


PJ.R1 


096 1= 




101 FOR J =0 TO 3 




102 1=1+25000 




103 V(J)= I 




130 REM 




140 REM COMPUTE TOTAL REVENUE 




141 T(J)= F + C * V(J) 




160 REM COMPUTE TOTAL REVENUE 




161 R1(J) = R * V(J) 




170 REM COMPUTE PROFIT / LOSS 




181 P(J) = R1(J) - T(J) 




183 NEXT J 




201 PRINT " VOLUME", V(0),V(1),V(2) 


V(3) 


202 PRINT " REVENUE", R1(0),R1(1),R1(2),R1(3) 


203 PRINT " COST",T{0),T(1),T<2),T(3) 


204 PRINT " PROFIT", P(0),P(1),P(2) 


P(3) 


240 END 





Figure 1-10. Break-Even Program Modified for Dimensions 











element 


element 1 


element 2 


element 3 











095 


REM 


INITIALIZE ARRAY V, COMPUTE P,T#R1 


096 


1 = 




- 


101 


FOR 


J=l TO 4 




102 


1 = 1 


+ 2500O 




103 


VCJ) 


= 1 




104 


REM 






140 


REM 


COMPUTE TOTAL 


REVENUE 


141 


TCJ) 


=F ♦ C * V<J) 




160 


REM 


COMPUTE TOTAL 


REVENUE 


161 


RKJ5=R » VCJ> 




170 


REM 


COMPUTE PROFIT/LOSS 


181 


P<J) 


=R1CJ)-TCJJ 


" 


183 


NEXT 


J 





Figure 1-12. Placing Data Into Arrays 



201 >MINT " V0LIJME"»VO >»V C2) ,7 C3> , V <4> 

202 PUNT " 3EVEWJE".*! Cl)*ril (2>.rt'l(3)»*l<4> 

203 PPUMT " C-3Sr"»T(l >»TC2),TC3>,T<4) 

204 PS I NT " Prt3FIT",P<l >»P(2)*P<3>>P<4> 

240 END 



Figure 1-11. Array V 



Figure 1-13. PRINT Statements for Array Elements 

After completing the loop between line numbers 101 and 
183 (figure 1-12), all of the arrays contain the results of 
the computation. The PFUNT statements in lines 201, 202, 
203, and 204 (figure 1-13) print the individual elements of 
each array. The program output displays the contents of 
each array as shown in figure 1-14. 

TERMINAL INPUT AND 
OUTPUT (I/O) 

Sometimes it is desirable to enter data while a program is 
executing. For example, if the break-even problem is 
generalized to permit several different products with 
different fixed costs, variable costs, and revenue per unit, 
the program can be modified to request the values for 
these variables while the program is executing. 

The INPUT statement is used in a BASIC program when 
entering data from the terminal keyboard. When the 
INPUT statement is executed, a displayed ? asks for data. 
Execution stops until the requested data is entered. Data 
entered through the terminal keyboard is assigned 
sequentially to variables listed as INPUT statement 
arguments. 

If more than one item is requested by one INPUT 
statement, the exact number of items requested must be 
entered and the items must be separated by commas. If 
not enough data or too much data is entered, diagnostics 
are issued by BASIC. The specified action must be taken 
before execution can resume. 



WEAK-EVEN 


P3INT = 50000 


V0LUME UNITS 






V3UJME 


25000 


S3030 


75000 


1 00000 


REVENUE 


7SOOOO 


1500000 


2250000 


3000000 


C0ST 


1250000 


1500003 


1750000 


2000000 


P33FIT 


-500000 


O 


500000 


IOOOOOO 



Figure 1-14. Output for Array Contents 
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Figure 1-15 illustrates the break-even program using the 
INPUT statement. The values of variables F, C, and R are 
to be input. The print statement at line number 015 prints 
a message on the terminal indicating the values and the 
sequence of the values to be input. The output of this 
statement is followed by the question mark and the result 
of the INPUT statement line 036 is shown in figure 1-16. 
Note that only two values were entered and that the NOT 



ENOUGH DATA diagnostic was issued; the additional value 
was then entered. 

The program output is shown in figure 1-16. Revenue, 
cost, and profit were computed on the basis of data 
entered at the terminal. Refer to section 7 and 
appendix D for more information pertaining to input and 
output. 



001 REM 


THIS IS A BREAK-EVEN PROGRAM 




002 REM 


THE FOLLOWING VARIABLES ARE USED 




003 REM 


FIXED ANNUAL COST F 




004 REM 


VARIABLE COST PER UNIT C 




005 REM 


SALES REVENUE PER UNIT R 




006 REM 


SALES VOLUME V 




007 REM 


BREAK-EVEN POINT CVOLUME) V1 




003 REM 


TOTAL COST T 




009 REM 


TOTAL REVENUE R1 




010 REM 


PROFIT/LOSS P 




011 REM 






012 REM 






013 REM 


ASSIGN VALUES TO F,C,R 




015 PRINT "INPUT:FIXED COSTS VARIABLE COSTS REVENUE PER UNIT" 


036 INPUT F,C,R 




039 DIM 


VC3) 




040 DIM 


PC3) 




041 DIM 


T<3) 




042 DIM 


RK3) 




060 REM 






070 REM 


COMPUTE BREAK-EVEN POINT 




080 LET 


V1=F/CR-C) 




090 PRINT "BREAK-EVEN P0INT=";V1;" VOLUME UNITS" 




095 REM 


INITIALIZE ARRAY V, COMPUTE P,T,R1 




096 1=0 






101 FOR 


J=0 TO 3 




102 1=1+25000 




103 V(J)=I 




130 REM 






140 REM 


COMPUTE TOTAL REVENUE 




141 T<J)=F+C*V(J) 




160 REM 


COMPUTE TOTAL REVENUE 




161 RKJ)=R*V(J) 




170 REM 


COMPUTE PROFIT/LOSS 




181 P<J) = R1CJ>-TU) 




183 NEXT J 




201 PRINT "VOLUME", VC0), VCD, VC2),VC3> 




202 PRINT "REVENUE", R1C0),R1CD,R1 C2),R1 (3) 




203 PRINT "COST",TC0),TCD,TC2),TC3) 




204 PRINT "PROFIT", PCO), PCD, PC2),PC3) 





240 END 



Figure 1-15. INPUT Statement in Break -Even Program 



INPUT: FIXED COSTS VARIABLE COSTS REVENUE PER UNIT 
? 1000000,10 

NOT ENOUGH DATA, REENTER OR TYPE IN MORE AT 240 

BRTnlr-EVEN P0INT= 5O000 VOLUME UNITS 

VOLUME 25000 50000 75000 

REVENUE 750000 1.5000OE+6 2.25000E+6 

COST 1 .25000E+6 1.5000OE+6 1 .75000E+6 

PROFIT -500000 500000 



100000 
3.00000E+6 
2.00000E+6 
1 .00000E + 6 



Figure 1-16. Break-Even Program Output Using INPUT Statement 
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USING BASIC UNDER NOS 
AND NOS/BE 

The previous paragraphs describe BASIC statements and 
the organization of these statements into a BASIC 
program. The following paragraphs describe the 
procedures for entering a program into a computer and for 
executing that program. 

BASIC is primarily a terminal-oriented language; however, 
programs in card deck form can be entered and executed 
(batch mode). The following paragraphs describe the 
method for entering and executing BASIC programs 
interactively through use of a teletypewriter (TTY) or 
cathode ray tube (CRT) terminal. See section 13 for a 
description of BASIC program card deck structures and 
batch mode operations. 

BASIC runs under both the NOS and NOS/BE operating 
systems. Its usage under NOS is described below; its usage 
under NOS/BE is described later in this section. See 
sections 10 and 11 for more detailed information. 

If operating from a terminal, the program must be written 
into a file, as shown in the examples that follow, and must 
be executed from the file. To correct a line, reenter the 
line number, followed by the corrected line. To delete a 
line under NOS, enter the line number and press the 
transmission (carriage return) key. To delete a line under 
NOS/BE, enter DELETE, the line number, and press the 
transmission (carriage return) key. New lines can be added 
freely. 



NOS 



1. Submit the family name on the same line: 

rmnnimnn 

If the family name is the default family for the 
system, press @ . Certain installations do not request 
a family name. 

The system then responds: 

USER NAME: 

2. Submit the user name on the same line: 

xxxxxxx 

The user name consists of alphanumeric characters 
assigned by the installation. 

The system then requests: 

PASSWORD: 

3. Enter the password: 

zzzzzzz 

The password must consist of up to seven 

alphanumeric characters. To provide a greater 

measure of security, overtyping is done on hardcopy 
terminals. 



BASIC programs can be run from a time-sharing terminal 
under NOS through Interactive Facility (IAF) or the 
Time-Sharing System. Login procedures for IAF and the 
Time-Sharing System differ. The procedures are described 
later. 

To initiate the login procedure, establish physical 
connection between the terminal and the computer. The 
method used to establish this connection varies depending 
on the type of terminal being used and the type of coupling 
between the terminal and the computer. Connection 
methods for IAF are described in the Network Products 
Interactive Facility reference manual. Connection 
methods for the Time-Sharing System are described in the . 
NOS Time-Sharing User's reference manual. 



If the family name, user name, and password are not 
acceptable, the system responds: 

IMPROPER LOGIN, TRY AGAIN. 
FAMILY: 

If the family name, user name, and password are 
acceptable, the system responds: 

termname - APPLICATION: 



4. Select the Interactive Facility by typing IAF on the 
same line: 



IAF 



Login Procedure for the Interactive Facility 

The login procedure for the Interactive Facility (IAF) 
begins with the system printing the following three lines at 
the terminal. The second line of this message is dependent 
on the installation. 

yy/mm/dd. hh.mm.ss termname 

CDC NOS 

FAMILY: 



When this occurs, perform the following steps (underlines 
indicate input at the terminal): 



The termname on this line is the same as that on the 
first line of the login sequence and can be disregarded. 



If validation is given to access the Interactive 
Facility, the system responds: 

TERMINAL: nn, NAMIAF 

RECOVER/CHARGE: 
or 

TERMINAL: nn, NAMIAF 

RECOVER/SYSTEM: 

where nn is the terminal number. Remember this 
number because it can be used for recovery. 
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5. Perform the following step (a) or (b) depending upon 
which system response was printed in step 4. 

(a) If RECOVER/SYSTEM is printed, enter the 
subsystem to be used on the same line: 

BASIC 

Since all interactive programs that are run under 
NOS reside as files, the system queries the 
applicable file type by responding: 

OLD, NEW, OR LIB FILE: 

(b) If RECOVER/CHARGE is printed, type CHARGE 
followed by the assigned charge number and 
project number on the same line: 

CHARGE,charqeno,projectno 
The system responds by printing: 

READY. 
Enter the desired subsystem: 

BASIC 

Since all interactive programs that are run under 
NOS reside as files, the system queries the 
applicable file type by responding: 

OLD, NEW, OR LIB FILE: 

6. Submit the appropriate file status: Ifn is the local file 
name. 



The following example illustrates a sample login: 

78/03/19. 13.19.28. TM109 

CDC NOS 

FAMILY: SYS1 

USER NAME: US2 

PASSWORD: TIME 

TM109 - APPLICATION: IfiF 

TERMINAL: 60, NAMIAF 

RECOVER/SYSTEM: BASIC 

OLD, NEW, OR LIB FILE: NEW.EX4 

READY. 

7. Enter the new BASIC program. Each line must begin 
with a 1- through 5-digit line number, and end 
with @ . BASIC statements need not be typed in 
correct order; the BASIC subsystem automatically 
sequences the statements according to line number. 
The NOS edit facility, XEDIT, can be used to enter a 
new BASIC program or change an existing file. See 
the XEDIT reference manual for use of this editing 
facility. 

8. To execute the program, type: 

RUN 



RNH 



(run no header) 



This command initiates compilation and execution of 
the BASIC program. The output of a BASIC program 
is in the form: 



yy/mm/dd 
PROGRAM 



hh.mm.ss 
nnnnnnn 



OLD, lfn Indicates the file previously 

created and available. 

NEW, lfn Indicates a new file. 

LIB, lfn Indicates a file from the system 

library. 

The file name consists of up to seven alphanumeric 
characters. If an OLD or LIB file does not exist, the 
system responds: 

lfn NOT FOUND, AT nnnnn. 

If the file name entered contains illegal characters, 
the system responds: 

ERROR IN ARGUMENT 

Correct the file name. 

If the file name entered contains too many characters, 
the system responds; 

ILLEGAL PARAMETER 
Correct the file name. 
After the system finds the specified file, it responds: 

READY. 



(Data printed by the program and error messages, if 
program errors occur.) 



RUN COMPLETE. 

9. When a run is completed, the following options are 
available: 

Continue processing (build and execute new 
programs; modify existing program and rerun; or 
rerun the same program), 
or 

Terminate the terminal session with the following 
command: 

BYE 

All files not saved (see appendix D, Indirect Access 
Permanent Files) are released, and the following is printed: 



xxxxxxx LOG OFF 
xxxxxxx SRU 



hh.mm.ss. 
S.SSS UNTS 



xxxxxxx Indicates the user name. 

s.sss Indicates the total number of system 

resource units used under this charge 
and project number. 



19983900 G 



1-11 



login Procedure for the Time-Sharing 
System 

The login sequence for the Time-Sharing System begins 
with the system printing the following three lines at the 
terminal. The second line of this message is dependent on 
the installation. 

yy/mm/dd. hh.mm.ss. 

CDC TIME-SHARING SYSTEM NOS 

FAMILY: 

When this occurs, perform the following steps (underlines 
indicate input at the terminal): 

1. Submit family name on the same line: 

nnnnnm 

If the family name is the default family for the 
system, press @ . If your installation does not use 
family names, a family name is not requested. 

The system then requests: 

USER NUMBER: 

2. Submit the user number on the same line: 

xxxxxxx 



4-5. 



The user number consists of up to seven 
alphanumeric characters assigned by the installation. 

The system then requests: 

PASSWOR D: 
IMIIIILLJ 

Enter the password: 



The password must consist of up to seven 
alphanumeric characters. To provide a greater 
measure of security, type the password in the area 
the system has blacked out. If a password is not 
needed, type: 



If the family name, user number, and password are 
not acceptable, the system responds: 

IMPROPER LOGIN, TRY AGAIN. 
FAMILY: 



If the family name, user number, and password are 
acceptable, the system responds: 

TERMINAL: nnn.TTY 
RECO VE R/CH ARGE: 
or 

TERMINAL: nnn.TTY 
RECOVER/SYSTEM: 



The nrm indicates the particular terminal number 
being used. (These responses are installation- 
dependent.) 



These steps are the same as the steps 5. and 6. of I 
the previous description of Login Procedure for the | 
Interactive Facility. 

The following example illustrates a sample login: 

79/04/19. 13.19.28. 
TIME SHARING SYSTEM 
FAMILY: SYS1 



6-8. 



USER NUMBER: I I I I I I I I 

PASSWORD 

LXTTTTT1 

TERMINAL: 60.TTY 

RECOVER/SYSTEM: BASIC 

OLD,NEW,OR LIB FILE: NEW,EX4 

READY. 

The password is blacked out and cannot be seen; it is 
shown for purposes of illustration. 

These steps are the same as steps 7. through 9. of 
the previous description of Login Procedure for the 
Interactive Facility. 

Sample Terminal Session 

The sample program in figure 1-17 was run at a terminal 
under the NOS IAF System. Responses entered at the 
terminal are underlined. Press the transmission (carriage 
return) key after typing in each response. 

In figure 1-17, the program is saved as a file named EX4. 
The program in this file is stored as an indirect access 
permanent file which can later be accessed by use of the 
OLD command (as shown in figure 1-18). At this time, 
add, delete, or change program statements as shown in 
figure 1-19. 

The REPLACE command replaces the old program with the 
corrected program: 

REPLACE. EX4 

This NOS command stores the updated program in 
file EX4. If logoff of the system occurs before replacing 
EX4, the corrected version is lost but the old version of 
EX4 remains intact. 

For a detailed description of the NOS commands used in 
figure 1-17, as well as other available NOS commands, see 
the IAF reference manual or the NOS Time-Sharing User's 
reference manual. 



NOS/BE 

To access a central computer from a terminal, establish 
physical connection with the computer system. The 
method of establishing the connection between the 
terminal and the central site computer varies depending on 
the type of terminal equipment and the connection 
provided by the telephone company. See the INTERCOM 
Version 4 and the INTERCOM Version 5 reference 
manuals. When connected to the terminal, the system 
responds: 

CONTROL DATA INTERCOM n.n 
DATE mm/dd/yy 

TIME hh.mm.ss 

PLEASE LOGIN 
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80/05/22. 14.45.59. TM1024— 

(22) SVL SN112 NOS. 

FAMILY: ,abs0455 

PASSWORD: pubs 

TM1024 - APPLICATION: iaf 

TERMINAL: 24, NAMIAF 

RECOVER/ CHARGE: charge, 591 2,693a41 2 

$CHAR6E,5912,693A412. 

/basic ~* 

OLD, NEW, OR LIB FILE: new,ex4— 



READY, 
auto — 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
IDLE. 



N0S1-1D176/R6B. 



print "type a number" 

input x 

Let f=1 

for i=1 to x 

let f=f*i 

print "factorial ";x;"is ";f 

goto 10 

end _- 



00160 goto 100 

00170 end 

00180 

IDLE. 

run -m 



80/05/22. 14.51.54. 
PROGRAM EX4 

FOR WITHOUT NEXT AT 130 
BASIC COMPILATION ERRORS 

RUN COMPLETE. 
00145 next i — 



00115 if x=0 then 00170 

run — 



80/05/22. 14.53.45. 
PROGRAM EX4 

TYPE A NUMBER 

? 3 — 



FACTORIAL 3 IS 
TYPE A NUMBER 

? - 



RUN COMPLETE. 

list— 



80/05/22. 14.54.13. 
PROGRAM EX4 

00100 PRINT "TYPE A NUMBER" 

00110 INPUT X 

00115 IF X=0 THEN 00170 

00120 LET F=1 

00130 FOR 1=1 TO X 

00140 LET F=F*I 

00145 NEXT I 

00150 PRINT "FACTORIAL ";X;"IS ";F 

00160 GOTO 100 

00170 END 

READY. 
save,ex4 -« 

READY. 



— Program listing. 



IAF (NOS) log-in procedure; type family 
name, user number, and password. 



Request for BASIC subsystem. 
Program is NEW file (ex4). 



BASIC program statements consist of a 
line number, followed by a space, followed 
by the appropriate statement. You should 
allow gaps between line numbers (10, 20, 
30, etc.) to permit the inclusion of addi- 
tional lines of code should changes be 
desired. You can enter the AUTO com- 
mand (IAF) to initiate automatic line 
numbering. 

Enter a user break to stop the automatic 
line numbering. 



Changing statement (00160) to correct 
program. Auto is reinitiated unless a 
list or run is issued. 

NOS compile and execute program 
command. 



BASIC issues diagnostic. 

Adding statements to correct program. 
Compile and execute again. 



Input 3 as the value for X. 

X = 0, so program terminates at line 80. 
NOS command to list program. 



NOS command saves program with 
file name ex4 for later use. 



Figure 1-17. IAF System 



19983900 G 



1-13 



o ld,ex4-*- 



READY. 
list -*- 



■ Makes the copy of the file 
accessible. 

Requests a list of the file 
contents. 



80/07/22. 10.03.45. 
PROGRAM EX4 

00100 PRINT "TYPE A NUMBER" 

00110 INPUT X 

00115 IF X=0 THEN 00170 

00120 LET F=1 

00130 FOR 1=1 TO X 

00140 LET F=F*I 

00145 NEXT I 

00150 PRINT "FACTORIAL ";X;"IS ";F 

00160 GOTO 00100 

00170 END 

READY. 



Figure 1-18. OLD Command Accesses Permanent File Under NOS 



RON _*_ 



Compiles and executes the new program. 



75/05/82. 10*04.22. 
PROGRAM EX A 

TYPE A NUMBEK 

? 6 -« 



FACTORIAL 6 IS 720 
TYPE A NUMBER 
? 



Enters 6 as value for X. 



SkU 



0.103 UN1S. 



KUN COMPLETE. 
feYE — 



NOS log off command. 



<&&&&#& L0G 0FK 10.05.13. 

mfS&SSf/S SKU 1.000 UNTS. 



Figure 1-19. Interactive Data Input (Add. Delete, Change Values) Under NOS 



When this occurs, perform the following steps (underlines 
indicate input at the terminal): 

1. Log in to the system by entering: 

LOGIN 
The system responds: 

ENTER USER NAME- 

2. Enter user name followed by @ . The user name can 
be any combination of up to ten letters or digits and 
must not be followed by a period. 

When the user name has been entered at a TTY 
terminal, the system responds: 

ENTER PASSWORD- 



At a 200 User Terminal (200 UT) or any display 
terminal, the system responds: 

ENTER PASSWORD- 



Then enter the password followed by @ . A password 
is any combination of up to ten letters or digits that 
must not terminate with a period. On a teletypewriter 
(TTY) listing, the system preserves privacy by allowing 
the password (over ten character spaces that have 
been blacked-out by overprinting) to be entered, as 
shown below. 



When the user name and password are accepted, the 
user id (a 2-character user code) and the time logged 
in, followed by the equipment number (multiplexer 
equipment status table ordinal) and the port number 
logged in, are displayed at the terminal, as shown 
below: 



ENTER USER NAME- USERA 



19/07/79 



COMMAND- 



ENTER PASSWORD- 
LOGGED IN AT 17.47.26 
WITH USER-ID AB 
EQUIP/PORT 52/03 



1-14 



19983900 G 



After a successful login the system responds with 
COMMAND; enter the text edit mode by entering the 
command EDITOR, as follows: 

COMMAND - EDITOR 



The system indicates text edit mode by displaying two 
consecutive periods (. .) . 



At this time, enter the LOGOUT command to release 
any local files created under EDITOR. Only files that 
are permanent are retained after logout. Perform any 
subsequent login. Disassociation from NOS/BE occurs 
until a subsequent LOGIN command is entered. 
NOS/BE displays the date and time logged out. 
LOGOUT is not allowed when operating under control 
of the EDITOR. (Leave EDITOR via the END or BYE 
command.) 



4. Enter: 



.. FORMAT, BASIC 

When this command is entered after the two periods, a 
format specification is automatically established at 
the terminal that permits lines to be entered in BASIC 
language format. The comma is optional. 



Example: 



COMMAND- LOGOUT 
CPA 6.377 SEC. 

CPB .000 SEC. 

SYS TIME 



CONI^ECT TIME 



HRS. 



6.377 ADJ. 

.000 ADJ. 
7.774 

19 MIN. 



10/21/79 LOGGED OUT AT 08.43.09. 



Enter the BASIC program statements (line number 
followed by BASIC statement); for example: 

.. 10 LET X = 5 

After the first line, the two period prompts are not 
given; continue inserting statements. Each line must 
begin with a 1- through 5-digit line number and end 
with @) . BASIC statements need not be typed in 
correct order because the EDITOR automatically 
sequences them according to line number. 



Once the entire program is entered, compile and 
execute the program by typing: 

RUN, BASIC 

After the program compiles and executes, the 
appropriate error messages are displayed if program 
errors occur. The comma is optional. 



7. When the run completes, select one of the following 
options: 

Continue processing (build and execute new 
programs; modify and rerun existing programs; or 
rerun the same program), 
or 

Terminate the terminal session by entering the 
BYE and LOGOUT commands or by entering the 
BYE BYE and LOGOUT commands. When the BYE 
or BYE BYE command is entered, the system is 
returned to command mode from EDITOR mode. 
The BYE command does not save the EDIT file. 
(See the following example of a BASIC program 
run under NOS/BE, the INTERCOM Version 4 and 
the INTERCOM Version 5 reference manuals.) 



The system responds with: 
COMMAND - 



Logout time is given in hours, minutes, seconds 
(24-hour clock); CP time is given in seconds. 
Disconnect the terminal from NOS/BE by turning it 
off, or by hanging up the data set receiver. 



Sample Terminal Session 

After logging in, create and execute BASIC programs. The 
sample BASIC program in figure 1-20 illustrates how to run 
a BASIC program under NOS/BE. The program was entered 
at a TTY terminal. After typing each response, press the 
carriage return key @) . 



Saving the file (SAVE, BASPROG) allows the file to be 
reserved for later use during the terminal session (for 
example, before logging out). To save the file 
permanently, it must be stored as a permanent file 
(STORE, BASPROG). (Some accounting information might 
be necessary before saving a file with STORE. Check 
site-procedures.) To retrieve and execute this program 
later, the following command sequence must follow the 
user login sequence. 



COMMAND- EDITOR 
. . FETCH, BASPROG 
. . EDIT, BASPROG.SEQ 
. . RUN, BASIC 



FETCH, BASPROG retrieves the file previously made 
permanent and tells EDITOR that BASPROG is to be the 
edit file. The commas are optional. RUN, BASIC compiles 
and executes the program. 



For a more detailed description of INTERCOM EDITOR 
commands used in this example, as well as other available 
commands, see the section on Terminal Operation under 
NOS/BE and the INTERCOM Version 4 reference manual 
or the INTERCOM Version 5 reference manual. 
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COMMAND- editor- 
. format ,basi c -»_ 



..10 print "type a number"; 

20 input x 

30 let f = 1 

40 for i=1 to x 

50 let f=f*i 

60 print "factorial ";x;" is "; f 

70 goto 10 

80 end 

run, basic -« 



FOR WITHOUT NEXT AT 40 — 

BASIC COMPILATION ERRORS 
..55 next i -» 



25 if x=0 then 80 
run,basi c 



TYPE A NUMBER ? 3 
FACTORIAL 3 IS 6 
TYPE A NUMBER ?0 — — 
. . I i st ,a 1 1, sup 



Issue a call to EDITOR. 

Request BASIC format specifications, following the EDITOR 
COMMAND MODE RESPONSE (..); then enter a BASIC 
program line by line. 



Request BASIC compile to compile and execute program. 
BASIC issues diagnostic messages. 

Add statement 55 to satisfy looping requirements. State- 
ment 25 is added to provide an exit from the program. 
A call is then made to the BASIC compiler again for 
compilation and execution of the BASIC program. 



Type (zero) to exit from execution and return to the 
EDITOR command mode. Then request a listing of the 
program in the edit file. 



10 PRINT "TYPE A NUMBER"; 

20 INPUT X 

25 IF X=0 THEN 80 

30 LET F=1 

40 FOR 1=1 TO X 

50 LET F=F*I 

55 NEXT I 

60 PRINT "FACTORIAL ";x;" IS ";f 

70 GOTO 10 

80 END 

. . save,basprog -«- 



..account. ACCOUNT statement. 

. . catalog,basprog,id= j ones,rp=99 . _». 

INITIAL CATALOG -. 

CT ID= JONES PFN=BASPROG: 



CT CY= 001 SN=PFQSET 00000064 WORDS, 
.end 



Save the edit file named BASPROG until LOGOUT. 

Store BASPROG as a permanent file. 

Exit from EDITOR. 

Return to NOS/BE command mode. 



Figure 1-20. BASIC Program Under NOS/BE 
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ELEMENTS OF THE BASIC LANGUAGE 



This section describes the BASIC language structure, and 
explains the elements of the language. The language 
elements include: numeric data consisting of integer, 
decimal and exponential constants; string data consisting 
of alphanumeric text with or without quotation marks; 
variables representing values that are not fixed; and 
operators of the language, expressions, and function 
references. 



BASIC LANGUAGE STRUCTURE 

A BASIC program is comprised of statements that define 
the type of operations performed and the types of data 
manipulated by the program. The statement lines are 
written by using characters from the BASIC character set. 
The following paragraphs define the BASIC character set, 
the structure of a BASIC statement, and the structure of a 
BASIC program. 



CHARACTER SET 

The characters listed in table 2-1 can be used to form 
BASIC statements. Any character available to the 
operating system can be used in data and string constants. 
See appendix A for a description of all available characters. 



STATEMENT STRUCTURE 

A BASIC statement can be in the form of an executable 
statement that specifies a program action (LET X = 10) or a 
nonexecutable statement that provides information 
necessary for program execution (DATA 1,3,5). All BASIC 
statements have the following common characteristics: 

• Each statement begins with a line number. Line 
numbering must range from 1 to 99???. 

• Each statement must be completed on a single line. 
Statement continuation onto another line is not 
allowed. 

a Generally, blanks within a BASIC statement have no 
meaning. However, there are specific instances in 
which blanks are significant, such as in strings. Blanks 
should only be used to separate elements of the BASIC 
language; for example, they should not be embedded 
within line numbers, keywords, constants, or variable 
names. See the Future System Migration Guidelines, 
appendix E. 

a A BASIC statement, including blar^ :, line numbers, 
and tail comments, can be a nisx!ms,sn> of 150 
characters. 

• The character apostrophe (') marks the beginning of a 
tail comment except when it appears in a string, an 
'matin atstfe-ntent, or a DATA statement. Tail 
comments serve only as documentation except for 
being included in the 150 character statement limit. 



TABLE 2-1 


. BASIC CHARACTER SET 


Symbol 


Description 


A thru Z 


Letters (uppercase) 


+ 


Plus 


- 


Minus 


* 


Asterisk 


/ 


Slash 


( 


Left parenthesis 


) 


Right parenthesis 


$ 


Dollar 


= 


Equal 


: 


Colon 


i 


Apostrophe 


thru 9 


Numerals 


A- 


Blank'*' 


» 


Comma 


• 


Period 


ii 


Quote 


A 


Circumflex?' 


< 


Less than 


> 


Greater than 


? 


Question mark 


> 


Semicolon 


# 


Number 


'Refer to appendix E for recommendations for 
the use of blanks. 


'*[)<p arrow (t) on some terminals. 
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PROGRAM STRUCTURE 

A BASIC program is a group of statement lines arranged 
according to the following general rules: 

« Program statements must be in line number order 
when the program is compiled. If entering the 
program lines in the BASIC subsystem under NOS or 
using the INTERCOM command FORMAT, BASIC 
under NOS/BE, the program statements need not be 
entered in line number order. See the NOS Interactive 
Facility reference manual or the INTERCOM 
Version 5 reference manual and INTERCOM 
Version 4 reference manual for information about 
sorting line numbers before execution. 

# Executable and nonexecutable statements can be 
intermixed. In the following example, a nonexecutable 
statement is the DATA statement at line number 110, 
and an executable statement is the IF statement at 
line number 100. These executable and nonexecutable 
statements are explained in more detail later in this 
manual under the GOTO statement: 

100 F A=B GOTO 110 
110 DATA 10,20,30 
120 READ C,D,E 
130 END 

• An END statement must have the highest line number 
in the source program. 

Although BASIC programs can be compiled and executed as 
batch programs, BASIC is normally used interactively from 
a remote terminal. 



Whether integer, decimal, or exponential, the absolute 
value of a constant must be in the range 3.13152 times 
10-294 to 1.26501 times 10^22. A n attempt to 
execute a program by using values above this range 
results in the diagnostic, ILLEGAL NUMBER. An 
attempt to execute a program by using values below 
this range results in zeros. 



Integer Constants 

An integer constant is a whole number written without a 
decimal point. 



Examples: 



-49 25000 
+123456789 



Decimal Constants 



A decimal constant is any whole number, fraction, or 
mixed number written with a decimal point. Leading zeros 
to the left of the decimal point and trailing zeros to the 
right of the decimal point are ignored; the decimal point 
can appear anywhere in the number. 



Examples: 

-4.08 
50.5 



1.91632614 
147.2 



.0000001 
+3025.098 



CONSTANTS 

A constant is a fixed, unchanging value, 
are numeric and string constants. 



In BASIC, there 



NUMERIC CONSTANTS 

In BASIC, there are three types of numeric constants: 

• Integer 

• Decimal 

• Exponential 

Although each of the numeric constant types has specific 
rules that govern its use, the following rules apply to all 
three constant types: 

» A comma cannot be used to delimit placement over 
the one-hundredth place, such as thousands and 
millions. 

• When a numeric constant is not signed explicitly by a 
negative or positive sign, the constant is assumed to 
be positive. 

• Any number of digits can appear in a numeric 
constant; a maximum of 14-digit accuracy is used in 
computation. The CYBER 170 Model 176 uses a 
method different from other CYBER models when 
rounding the results of division. The difference is in 
the 15th digit of accuracy, but can become apparent 
when several divides and multiplies are done in 
succession (as in the case when matrix inversion is 
followed by matrix multiplication). 



Exponential Constants 

The representation of very large or very small numbers is 
simplified by using exponential constants. For example, to 
write ten billion in its full form requires 11 digits 
(10000000000); however, ten billion can also be represented 
as 1.0 times 10l°. 

In BASIC, this exponential form is expressed by 1.0E10. 
The 1.0 is the significand and the 10 is the exponent. The 
E means times ten to the power of. 

Similarly, a small number, such as .00000000923, can be 
represented as 9.23 times 10 - '. In BASIC, this notation 
can be expressed by 9.23E-9. 



To use exponential constants in 
following rules must be observed: 



a BASIC program, the 



• A number, the significand, must precede the E. The 
significand can be any valid integer or decimal 
constant. 

• The exponent (number that follows the E) is an integer 
constant with a positive or negative sign. If a sign is 
absent, a positive sign is assumed. If the exponent is 
too large to be represented in the computer, a 
diagnostic is issued. 

» Decimal paints are not permitted in the exponent. 

Examples: 

-2.517E130 

7E+20 

4.91872634E-18 



2-2 



19983900 G 



STRING CONSTANTS 



The following rules apply to numeric variables: 



A string is a collection of alphabetic, numeric, and special 
characters. In BASIC, these characters are usually set off 
by quotes from the rest of the program; this is called 
quoted text. Strings that are not set off with quotes, 
called unquoted strings, are permitted, but they can only 
be used in DATA statements or as input data. 



Rules: 



« A string enclosed in quotes consists of all characters 
between quotes, including blanks. 

» Th- riaximucn length of a string depends on the mode: 
normal or ASCII. In normal mode, the maximum 
length is 131070 characters; in ASCII mode, the 

maximum length is :. I *-. I 1310" I 

characters, depending on the number of escape code 
characters in the string. See appendix A. 

• A zero-length string, also called a null string, is 
represented by a pair of quotes (""). 

• Any character can be used in quoted strings. 

• The character quote (") must be used as a pair of 
quotes (' "). An smbodded quote uses two pairs. 

Examples: 

"PART 25" 
"THIS IS A TEST" 
I "An""embedded""quote" 

The outside quotation marks are not part of the string 
constant. See DATA, under the I/O Statements section, 
for an example of unquoted strings. 



VARIABLES 

Variables represent values that are not fixed. Values can 
be assigned to variables and later changed by other 
statements or conditions during execution of the BASIC 
program. Variables can represent numeric or string data 
and can be simple or subscripted. 



• Numeric variables represent only numeric data. 

• Numeric variables are preset to zero before the 
program executes. 

• The absolute value of a numeric variable must be in 
the range of 3. 13152 times 10-294 t0 ]_ # 26501 times 
10322. 

• If a value smaller than the minimum is assigned, the 
variable is set to zero. 

• If a value greater than the maximum is assigned, a 
fatal diagnostic is issued. 



String 

String variables represent alphanumeric text and are 
named with a 2- or 3-chara '.:.' \ The first 

character must be alphabetic, the optional second 
character must be a digit (0 through T) and, in either case, 
the last character must l- ad lai ^-.n ($). For example: 



A$ 



B$ 



Y$ 



Al$ B9$ 



Y3$ 



The value represented by a string variable is a string of 
characters. Internally, each character is represented by 
one or two 6-bit numeric codes. (See appendix A.) The 
characters at the beginning of the alphabet have code 
values that are less than the characters at the end of the 
alphabet. For example, if A$ and B$ represent strings ABC 
and XYZ, respectively, then A$ has a value less than B$. 



The string represented by a string variable can contain 
from through 15»0?0 6-bit characters or from through 
',:C36 12-bit escape code (ASCII) characters. The 
maximum for a string containing both 6- and 12-bit 
characters (the usual case when operating in ASCII mode) 
lies somewhere between 65535 and 131070 characters 
depending upon the number of 12-bit escape code 
characters. 



SIMPLE VARIABLES 

Simple variables can be either numeric or string. These 
two types of simple variables are described in the following 
paragraphs. 



Numeric 



The memory space allocated to each string is determined 
by the length of the string. The minimum is one computer 
word; the maximum is 13108 computer words. The 
one-word minimum space is allocated by the BASIC 
compiler for every string variable mentioned in the 
program. The remaining words are allocated and 
de-allocated dynamically at execution time. 



A simple numeric variable represents a numeric value. It 
is named by a single alphabetic character or a single 
alphabetic character and a numeric character. Variable 
names must not exceed two characters in length. 
Examples of simple numeric variables are: 



Z3 



C9 



Examples of invalid numeric variable identifiers are: 
B23 49 G* AA 



SUBSCRIPTED VARIABLES 

Subscripted variables represent one value in an array of 
values. There are two types of subscripted variables: 
numeric and string. Numeric subscripted variables are 
formed by a simple numeric variable followed by a 
subscript list; string subscripted variables are formed by a 
simple string variable followed by a subscript list. A 
subscript list consists of one to three numeric expressions 
bounded by parentheses. (See figure 2-1.) 
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NUMERIC SUBSCRIPTED VARIABLES 



A{0) 

B2{3) 

B(5,10) 

A(B2(3» 

X(1,N+M,A(3)) 



STRING SUBSCRIPTED VARIABLES 



B$(4) 

LSJ1.J+3) 

C$(1,J+3.A(1)) 



Figure 2-1. Numeric and String Subscripted Variables 



Rules for subscripted variables are listed below: 

a BASIC permits 1-, 2-, g 
BASIC, array dimensions"car» 
using subscripted variables. 

« Unless an array has been explicitly defined by a DIM 
statement, as described in section 3, the first 
subscripted variable that references an element in an 
array automatically defines the array as containing 11 
elements (0 through 10) in each dimension. Thus, a 
1-dimensional array has 11 elements; a 2-dimensional 
array has 11 times 11 (or 121) elements, and a 
3-dimensional array has 11 times 11 times 11 (or 1331) 
elements. 

• A subscript value greater than 10 requires a DIM 
statement. (See section 3.) 

« Subscripted variables with one subscript refer to 
elements in 1-dimensional arrays; subscripted 
variables with two subscripts refer to 2-dimensional 
arrays; subscripted variables with three subscripts 
refer to 3-dimensional arrays. 

• A subscript can be any arithmetic expression. The 
subscript used is the value of the expression rounded 
to an integer. 

• Simple and. subscripted variables with the same name 

".'" ■- ■. . :•: :■ : :l c :. -r. ■'. it ram 



The lower limit on subscripts is normally zero. 
However, this limit can be changed to one by using 
OPTION BASE 1 (See OPTION statement in 
section 3.) OPTION BASE 1 instructs the system to 
start array subscripting with element 1, rather than 
the default element 0. Thus, when OPTION BASE 1 is 
in effect, automatically-defined 1-dimensional arrays 
contain 10 elements (1 through 10), 
automatically-defined 2-dimensional arrays contain 
100 elements, and automatically-defined 

3-dimensional arrays contain 1000 elements. 



SUBSTRING ADDRESSING 

Substring addressing specifies a portion of the value 
associated with a simple or subscripted string variable. 
Substring addressing can be used anywhere that simple or 
subscripted string variables can be used. Substring 
addressing is achieved by adding a substring qualifier after 
a simple or subscripted variable. (See figure 2-2.) 



SV (rn:n) 




SV 


Indicates the string variable. 


(m:n) 


Indicates the substring qualifier with m 
and n as numeric constants, variables, 
or express orw 



Figure 2-2. Substring Addressing Format 



The substring qualifier specifies the portion of the value of 
the string variable from its mth through nth character. 



The m and n represent the positions in the string. The 
substring indices are first rounded to integers then the 
following rules are applied: 

1. If m< 1, then m is considered to equal 1. 

2. If m > the length of the string, then the substring 
addressed is the null string immediately following the 
last character of the string. 

3. If n > the length of the string, then n is considered to 
be equal to the length of the string. 

4. If n<m, then the substring addressed is the null string 
preceding the mth character of the string. 



If A$ contains ABCDEF, then the following is true: 

A$(l:4) represents ABCD. 

A$(0:3) represents ABC (rule 1). 

A$(4:8) represents DEF (rule 3). 

A$(4:4) represents O. 

A$(3:2) represents the null string between B and C. 

A substring variable can be used anywhere that a string 
variable can be used. 

EXPRESSIONS 

An expression is usually formed from a series of operands 
and operations; however, a single constant or variable can 
also be considered an expression. In BASIC, there are 
three types of expressions: arithmetic, string, and 
relational. The value of an arithmetic expression is 
numeric; a relational expression is either true or false; and 
a string expression is a string of characters. 
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ARITHMETIC EXPRESSIONS 

Arithmetic expressions consist of a series of numeric 
operands and operators. Operators can be any arithmetic 
operator listed in table 2-2; operands can be any numeric 
constant, simple or subscripted variable, numeric function 
reference, or any expression enclosed in parentheses. A 
function reference is a notation for activating a predefined 
algorithm. If arguments are required by the function, the 
arguments are evaluated and passed to the function. The 
function then calculates and returns a result based on the 
arguments. The returned value is used in place of the 
function reference. BASIC provides several built-in 
functions and allows you to write your own functions. See 
BASIC Functions in section 5. 



TABLE 2-2. ARITHMETIC EXPRESSION 
OPERATOR HIERARCHY 



Hierarchy 


Operator 


Definition 


1 

2 
3 

4 


a or mm 

* and / 
+ and - 
+ and - 


Exponentiation (Note: t on 
some teletypewriters) 

Multiplication and division 

Unary + and - 

Addition and subtraction 



Rules for Writing Arithmetic Expressions 

In the formation of arithmetic expressions, certain rules 
must be followed: 

• Only numeric operands and numeric operators can be 
used. 



Arithmetic Expression Evaluation 

The rules for the evaluation of arithmetic expressions are 
as follows: 

« Expressions within parentheses are evaluated first. 

« Operations of higher precedence are performed before 
those of lower precedence. Precedence is determined 
by the hierarchy illustrated in table 2-2 from highest 
(1) to lowest (4). 

Operations of equal priority or precedence are 
performed in order from left to right. 

Table 2-3 illustrates some examples of arithmetic 
expression evaluation. 



TABLE 2-3. EXPRESSION EVALUATIONS 



Expressions 


Evaluation Steps 


A+B*C/DaE 

A+(fi-C)*3 

-2 a 2 
(-2) a 2 


1. DAE = a 

2. B*C = b 

3. b/a = c 

4. A+c = d (final value) 

1. B-C = a 

2. a*3 = b 

3. A+b = c (final value) 

1. 2a2 = a 

2. -a = -4 (final value) 

1. -2 = a 

2. aA2 = 4 (final value) 



Two arithmetic operators cannot appear side by side; 
for example, X++Y is not allowed. If a minus sign is 
used to indicate a negative value in an expression, 
parentheses must be used to separate the negative sign 
and associated operand from the remainder of the 
expression. For example: 



Correct 
Incorrect 



A*(-B) 
A*-B 



Operators cannot be implied; for example, (X+l) (Y+2) 
is not allowed. The correct form is (X+l) * (Y+2). 



The following are examples of valid arithmetic expressions: 

A+B*C/DaE 

A1(3,I+4)A2.6-G3/Z 

A+B**C 

A+SIN(X)+COS(Y) (built-in function) 

-3.14*RA2 



STRING EXPRESSIONS 

String expressions consist of a series of string operands and I 
operators. There is only one string operator available, | 
string concatenation (+). String operands can be one of the 
following: 

• A string constant 

• A simple or subenrlptad string variable 
» " rtri <■ f ..j •>• rel srence 

« A substring reference 

The following are examples of string expressions: 

"TESTl" I 

B$(l)+D$ I 

B$(l:4) I 
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Concatenation 

The format of a string concatenation is shown in 
figure 2-3. The concatenation operation causes the string 
to the right of the operator, se2 to be appended or 
joined to the end of the string to the ieft, sej. 



TABLE 2-4. RELATIONAL EXPRESSION OPERATORS 



Indicates string constant, variable, or 

expression 



Figure 2-3. String Concatenation Format 

The character + is either a concatenation operator or an 
arithmetic operator, depending on the context. It must be 
surrounded by string variables to be considered a 
concatenation operator. Any expression containing both 
string and arithmetic operands is illegal. 

Only one string operator can be used, so there is no 
hierarchy of operations. Parentheses can be used to group 
expressions into subexpressions, but such groupings have no 
effect on the result. 

The fatal error, STRING OVERFLOW, results if a 
concatenation operation produces a string longer than the 
allowable maximum. In normal mode, the maximum string 
length is 131070 characters. In ASCII mode, the string 
length maximum is 65535 to 131070 characters, depending 
on the number of escape code ASCII characters in the 
string. 

The following examples illustrate string expressions and 
the string concatenation operator. 

1. "ABC" + "DEF" evaluates to "ABCDEF" 

2. If string A$ contains the string expression SUBSTRING 
EXPRESSION then A$(l:10) + "ADDRESSING" 
evaluates to "SUBSTRING ADDRESSING". 



RELATIONAL EXPRESSIONS 

There are two types of relational expressions: simple and 
compound. Simple relational expressions are formed by 
connecting two numeric or string expressions with a 
relational operator. Compound relational expressions are 
formed by connecting two simple relational expressions 
with a logical operator. 



Simple Relational Expressions 

The format of a simple relational expression is shown in 
figure 2-4. The relational expression operators that can be 
used to connect numeric or string expressions are shown in 
table 2-4. 



e t op 


e 2 




e V e 2 




Indicates numeric or string constants, 
variables or expressions. 


op 




Indicates relational operator. 



Operator 


Definition 


= 


Equal to 


<> or >< 


Not equal to 


> 


Greater than 


< 


Less than 


> = or . * > 


Greater than or equal to 


< = ov * < 


Less than or equal to 



Rules for Writing Simple Relational Expressions 

m Comparison of a string to numeric expressions is not 
allowed. 

4 Only one relational operator is allowed in an 
expression. 

» Relational expressions can be used only in 
IF statements (section 4). 



Rules for Evaluating Simple Relational Expressions 

« Numeric Relational Expressions 

The two arithmetic expressions are evaluated and then 
their resultant values are compared algebraically to yield a 
true or false value. If A = 2 and B = 3, the expressions in 
figure 2-5 are evaluated as shown. 



Relational Expression 
A = B 


Value 


False 


AXB 


True 


A> B 


False 


A< B 


True 


A> = B 


False 


A < = B 


True 


A»A+3<B»2 


False 







Figure 2-4. Format for Simple Relational Expressions 



Figure 2-5. Evaluating Simple Relational Expressions 

• String Relational Expressions 

Strings are compared character-by-character in 
left-to-right order. BASIC compares characters according 
■■■ ..-.■: . ..■-.-. . the jpplicab - -hare " -.'■■ 
(See appendix A.) For example, A Is teas than B, since the 

ASCII is the default collating sequence used for all string 
comparisons in BASIC. OPTION COLLATE can be used to 
change the collating sequence to a collating sequence that 
is native to the character set being used. See the OPTION 
statement, and appendix A (describes the various character 
sets supported by BASIC). 
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Strings are equal if they have the same length and contain 
the same characters (including blanks) in the same order. 
| Blanks are important when they are used in strings. 

When strings are equal in length, the first pair of 
corresponding characters that are not equal determines the 
greater string. For example, ABXY is greater than ABCZ 
because the numeric code for X is greater than the 
numeric code for C. 

When strings are unequal in length, but corresponding 
characters that can be compared are equal, the longer 
string is always considered greater. For example, ABX is 
greater than AB. 

When strings are unequal in length, but one of the 
corresponding characters that can be compared when 
scanning from left -to-right is greater, the string with the 
first character of greater value is the greater string. For 
example, X7 is greater than X6543, and X76 is greater than 
X75123. 



Compound Relational Expressions 

A compound relational expression is a sequence of simple 
relational expressions separated by logical operators. A 
compound relational expression evaluates to TRUE or 
FALSE. The format for the compound relational 
expression is shown in figure 2-6. The logical operator 
hierarchy is shown in table 2-5. 



Rules for Evaluating Compound Relational 
Expressions 

• Expressions within parentheses are evaluated first. 

• Operators of higher precedence (hierarchy) are 
performed before those of lower precedence. The 
hierarchy and definition of the logical operators are 
provided in table 2-5. 

NOT is a unary operator and can appear to the left of any 
operand; however, it cannot appear as the only operator 
between two operands. 

NOT can appear between the other logical operators (AND, 
OR) and an operand (for example, Ri AND NOT R2; 
Rl OR NOT R 2 ). 

In the truth table 2-6, the NOT (unary) operator is 
evaluated. The NOTp is the opposite of p. In the following 
examples, TRUE is printed for the first example, and 
FALSE is printed for the second example. 

1. A<B THEN PRINT "TRUE" ELSE PRINT "FALSE" 

2. NOT A<B THEN PRINT "TRUE" ELSE PRINT "FALSE" 

In the first example, it is true that A is less than B; in the 
second example, it is false that A is not less than B (A is 
less than B). 

The logical operators AND, OR are defined in truth 
tables 2-6, 2-7, and 2-8. 



TABLE 2-6. NOT (UNARY) OPERATOR EVALUATION 



R 1 op R 2 




R 1 _ R 2 


Simple relational expression or com- 
pound relational expression. 


op 


Logical operator (AND, OR, unary 
NOT). 



Figure 2-6. Format for Compound Relational Expressions 



p 


NOTp 


FALSE 
TRUE 


TRUE 
FALSE 



TABLE 2-7. AND OPERATOR EVALUATIONS 



P ^»N. 


FALSE 


TRUE 


FALSE 
TRUE 


FALSE 
FALSE 


FALSE 
TRUE 



TABLE 2-5. LOGICAL OPERATOR HIERARCHY 



Hierarchy 


Operator 


Definition 


1 . 
2 

3 


NOT 
AND 

OR 


Logical negation 

Logical multiplication or 
logical intersection 

Logical addition or union 
(inclusive or) 



TABLE 2-8. OR (INCLUSIVE) OPERATOR EVALUATIONS 



P N^ 


FALSE 


TRUE 


FALSE 
TRUE 


FALSE 
TRUE 


TRUE 
TRUE 
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Examples using NOT, AND, OR In the following examples, if A=5, B=4, C=2, and D=l, the 

result is the following: 
In the examples below, if 1=8 and J=4, the result is the 
following: 

1. NOT A>B AND C=D 

1. I=J OR NOT J>I 

Evaluates to false and false, so the expression is false. 
Evaluates to false or true, so the expression is true. 

2. NOT (A>B AND C=D) 

2. 2*1= Ja2 AND K J 

Evaluates to false (the AND expression) and true, so 
Evaluates to true and false, so the expression is false. the expression is true. 
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FUNDAMENTAL STATEMENTS 



This section describes the statements that are used for the 
following purposes: 

• Perform value assignment during program execution. 

• Choose the lower boundary of an array. 

• Choose the collating sequence to be used for string 
and function comparisons. 

• Define and allocate storage for arrays. 

• Terminate execution of a program. 

• Insert explanatory remarks into a program. 

The tables in each category of statements summarize the 
effect and usage of each statement. 



VALUE ASSIGNMENT 

The value of a variable can be assigned with the LET 
statement. For numeric variables, the present value is 
replaced by a new value. For string variables, the 
complete present value or a specified substring of the 
value can be replaced by a new value. 



LET STATEMENT 

The LET statement assigns a value to one or more 
variables during execution of a BASIC program. The effect 
and usage of the LET statement is shown in table 3-1. The 
format of the LET statment is shown in figure 3-1. 
use of the word LET is optional in the LET statement. 



The 



TABLE 3-1. VALUE ASSIGNMENT 



Statement 


Effect 


Usage 


LET 


Assigns a numeric 
or string value 
to one or more 
variables speci- 
fied in the LET 
statement line. 


LET B = 3+2 

LET a>~::=x+y 

C(4) = 20 



When the LET statement contains a single variable (nv or 
sv) on the left-hand side of the equals sign, the value of the 
expression ne or se on the right-hand side of the equals sign 
is assigned to the variable. When the LET statement 
contains a series of equalities, each variable is assigned the 
value of the expression. Subscript expressions are 
evaluated prior to the assignment of the value, and all 
expressions are evaluated according to the rule of operator 
precedence. (See table 2-2 in section 2.) For examples, 
see figure 3-2. The LET statement at line number 10 
assigns the value of the expression X+Y to the variable Al; 
the LET statement at line number 20 assigns the same 
expression value to each of the variables A2, A3, and A4; 



the LET statement at line number 30 simultaneously 
assigns the value 6 to I, and places the element 6 into 
subscript I in Z(I), which was previously assigned the array 
position (2+1). After execution of line number 30, the 
subscript value of I becomes 6, which places the element 4 
in the statement at line number 35 into the array 
position 6; the fifth LET statement assigns the value of the 
quoted string expression TEST to the string variable B$. 



=nv n =ne 



"n 



LET nv=ne (or) nv=ne 
(or) 



LET nvi=nv2=nv3 , 
(or) nvj=nv2=nv3 < 

(or) 

LET sv-t=sv2=sv3 . 
(or) svi=sv2=sv3 . 



nv Indicates a numeric variable (simple or subscripted). 
The string variables can also have a substring 
descriptor. 

sv Indicates a string variable (simple or subscripted). 

ne Indicates a numeric expression of any complexity. 

se Indicates a string expression of any complexity. 



Figure 3-1. LET Statement Format 



10 LET A1=X+Y 

20 LET A2=A3=A4=X+Y 

25 LET 1=2+1 

30 Z(I)=I=6 

35 ZU)=4 

60 LET B$="TEST" 



Figure 3-2. LET Statement Examples 

Substring addressing can be used anywhere that string 
variables are used. Use the LET and the INPUT statements 
to replace, delete, extract, or insert substrings into or 
from a simple or subscripted string variable. Any length 
string (up to the limits) can be inserted into a string by 
using a substring descriptor. A substring can be replaced 
by assigning a new value to that particular part of the 
string, or the substring can be deleted by assigning a null 
value to it. The value of the original string can be 
lengthened or shortened with these insertion, deletion, and 
replacement operations. A variable containing a null string 
can be assigned a value by extracting a substring value 
from one string and inserting it into the null string. 
Figure 3-3 shows several examples of substring addressing; 
all the examples assume an original string variable value of 
ABCDEF. 
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The following examples of substring addressing use an original 
string value of ABCDE F. 



20 LET A$(2:5)="XXXX" 



215 LET C$(3:5)= 



110 LET B$(4)(2:0)="MM" 



30LETZ$<1:3)=Z$<4:6) 



10 LET B$=A$(2:4) 



Value XXXX replaces BCDE; 
value of string A$ becomes 
AXXXXF. 

Null value replaces CDE; 
value of string C$ becomes 
ABF. 

Value MM replaces the null 
string before B; value of 
subscripted string variable 
B$ becomes AMMBCDEF. 

Value DEF replaces the 
first three characters of 
string Z$; value of Z$ 
becomes DEFDEF. 

A$ is the original string 
value of ABCDE F; B$ 
contains the null value; B$ 
is assigned the extracted 
value BCD. 



Figure 3-3. Substring Addressing Using LET Statement 



OPTION STATEMENT AND DIM STATEMENT 

Use one statement, the OPTION statement, to choose a 
particular collating sequence for comparing strings and 
computing values, and to declare the base (origin) of all 
arrays. To declare and allocate storage for 1-, 2-, or 
3-dimensional arrays that are not the default size, use the 
DIM statement. See table 3-2 for a summary of the 
effects and usage of the OPTION and DIM statements. 



OPTION STATEMENT 

Use the OPTION statement for two distinct purposes: to 
explicitly declare the lower boundary (or origin) of all 
arrays being used in the program to base or to base 1, 

fdr comparing strings and for computing values of the 
CHR.% and ORD functions. If the OPTION statement is 
encountered during normal program execution, control 
passes to the next statement, with no effect on the 
program. 



OPTION BASE n 

The OPTION statement using BASE explicitly sets the 
origin of all arrays to either or 1. OPTION BASE n can 
appear only once in a program, and it must precede any 
DIM statement or any reference to an array. If OPTION 
BASE n is not specified, the lower boundary of all arrays is 
assumed to be base 0. The default for array subscripting 
starts with element 0. 

In the following example, BASE n is declared as 1. Since 
the example specifies that subscripting starts with element 
1, the DIM statement defines A as a 3 by 4 (or 12 element) 
array, and B as a 2 by 13 (or 26 element) array. 

100 OPTION BASE 1 
110 DIM A(3,4),B(2,13) 

Using OPTION BASE (the default) in the above example 
would cause the array A to be dimensioned as a 4 by 5 (or 
20 element) array, and B to be dimensioned as a 3 by 14 (or 
42 element) array. Other examples of using OPTION BASE 
n are shown under Matrix Statements in section 8. 
Figure 3-4 shows the possible formats for OPTION BASE n. 



1. OPTION BASE n 

2. :><T ON COI LATE NATIVE 

(or) 
OPTION COLLATE STANDARD 

3. OPTION BASE n, COLLATE NATIVE 

(or) 
OPTION BASE n. COLLATE STANDARD 

(or) 

OPTION COLLATE NATIVE. BASE n 

(or) 
OPTION COLLATE STANDARD. BASE n 

n Indicates the origin to be set; it can be 
either or 1. 



Note 

You should not use OPTION COLLATE NATIVE 
in normal mode. See Future System Migration 
Guidelines, appendix E. 



Figure 3-4. OPTION Statement Formats 



TABLE 3-2. OPTION AND DIM STATEMENTS 



Statement 


Effect 


Usage 


OPTION 
DIM 


Can set the lower boundary of all 
arrays being used by the program 
to base or to base 1. - \ 
this statement can select the 
collating sequence to be used 
for string comparison and for 
value computation of the CHR$ and 
ORD functions. 

Defines and allocates storage for 
1-, 2-, and 3-dimensional arrays. 


OPTION BASE 1 

OPTION COLLATE NATIVE 

OPTION COLLATE STANDARD 

DIM A(4,4), B(15) 
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OPTION COLLATE 

The OPTION COLLATE NATIVE and OPTION COLLATE 
STANDARD determine the collating sequence used by a 
program for comparing strings and for computing values of 
the CHR$ and ORD functions. Figure 3-4 shows the 
formats for these two choices. 

OPTION COLLATE STANDARD is the default collating 
sequence; it specifies that the ASCII collating sequence is 
to be used by the program for comparing strings and 
computing values of the CHR$ and ORD functions. Every 
character in the BASIC character set (as shown under 
BASIC Language Structure) is assigned an ASCII character 
code; the smaller the ASCII character code, the earlier the 
character appears in the collating sequence. This ordering 
is important in string comparison operations because 
BASIC compares characters according to their assigned 
numeric codes in the applicable character set. For 
example, A is less than B because the ASCII (or BASIC 
decimal) code is 65 for A and 66 for B. Table A-l in 
appendix A provides a list of characters and their 
corresponding ASCII character codes. 

OPTION COLLATE NATIVE instructs BASIC to select the 
collating sequence native to the character set being used 
by the program. The character set used by a program is 
determined by the AS parameter of the BASIC control 
statement. (See Batch Operations.) As shown in 
appendix A, the native character sets supported by BASIC 
can be classified as the ASCII character set or as the 
normal character set. The native collating sequence for 
ASCII character sets (described in appendix A as NOS 
ASCII 128-character set, NOS/BE ASCII 95-character set, 
and the Extended Character Set) is the same as for the 
standard collating sequence. The native collating sequence 
used for normal character sets (described in appendix A as 
CDC 63-character set, CDC 64-character set, ASCII 
63-character set, and ASCII 64-character set) is display 
code. However, because of the anticipated changes in 
BASIC, it is recommended that OPTION COLLATE 
NATIVE not be used in normal mode. See the Future 
System iviigration Guidelines, appendix E. BASIC treats 
display character codes in the same way as ASCII 
character codes. That is, the smaller the display character 
code, the earlier the character appears in the collating 
sequence, "able A-2 in appendix A provides a list of 
character*, ^nd their corresponding display character codes. 

The COLLATE option can be used only once in a program. 
If the statement is not specified, OPTION COLLATE 
STANDARD is assumed by default. 



DIM STATEMENT 

The DIM statement explicitly defines one or more arrays 
and allocates storage space for the named arrays. The 
format for the DIM statement is shown in figure 3-5. 



DIM m-j(nci. 




m 1 " m n 


Indicates numeric or string matrix 
identifier. 


nci - ncg 


Indicates one-to-three integers, sepa- 
rated by commas, that represent the 
maximum value of each subscript. 



Arrays require a DIM statement when a subscript value 
greater than 10 is needed. To save space, use the DIM 
statement to dimension an array with an upper subscript 
limit of less than 10. An array not previously defined by 
the DIM statement is implicitly declared to have one 
dimension (10) when an element is referenced by an array 
variable with one subscript; two dimensions (10 times 10) 
when the element is referenced by an array variable with 
two subscripts; and three dimensions (10 times 10 times 10) 
when the element is referenced by an array variable with 
three subscripts. 

Use DIM statements anywhere in a program, but define an 
array prior to usage of that array. See Future System 
Migration Guidelines, appendix E. However, an array 
variable cannot be declared in a DIM statement more than 
once in the same program. An array can be redimensioned 
when a matrix statement is executed. (See Redimensioning 
and Matrix Operations, section 8.) DIM is not executable; 
the program is not effected if DIM is encountered during 
normal program execution. 

Arrays passed as arguments to the INV function are 
limited to 100 times 100 elements. (See INV function.) In 
all other cases, the number of dimensioned array elements 
is limited only by the amount of available memory. 
Figure 3-6 illustrates use of the DIM statement to define 
arrays and to reserve space for each of the declared array 
elements. The examples presented in figure 3-6 assume 
that subscripting begins with element 0. 



• 100 DIM X$(5,5), B3(1,2), X1(50) 
This statement reserves space for: 
X$ 



A two-dimensional string array with 
6 times 6, or 36 elements. 



B3 A two-dimensional numeric array with 
6 elements. 

X1 A one-dimensional numeric array with 
51 elements. 

• 50 DIM G2(5,6,7), A0(9,2), P$(2,3) 

This statement reserves space for: 

G2 A three-dimensional numeric array with 
6 times 7 times 8, or 336 elements. 

A0 A two-dimensional numeric array with 
10 times 3, or 30 elements. 

P$ A two-dimensional string array with 
12 elements. 



NOTE 

Each element of a numeric array requires one 
computer word. Each element of a string array 
requires 1 + n computer words where n is a 
function of the number of 6-bit characters 
currently assigned to the string. If the number 
of characters is zero, n=0. If the number of 
characters is nonzero, n=INT ((number of 6-bit 
characters +11) /10) + 1. 



Figure 3-5. DIM Statement Format 



Figure 3-6. DIM Statement Examples 
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PROGRAM COMMENTS 

Program comments in a BASIC program are indicated by 
using the REM statement - I > ■ _•/ di . t .:■ --■..- . . ■ 
teit mmmmti. Table 3-3 summarize the effects and 
usage of the REM statement and the tail comment. 

TABLE 3-3. REM STATEMENT AND TAIL COMMENT 



Statement 


Effect 


Usage 


REM 

Tail Comment 


Adds comments 
to a program 
without 
affecting 
execution. 

Adds comnents 
to the end of 
BASIC state- 
men ts . 


REM SOLVE FOR Y 

'Beginning of 
subroutine A 



REM STATEMENT 

The REM statement is used to insert explanatory remarks 
or comments into a program. REM is a nonexecutable 
statement and, therefore, has no effect on program 
execution. The format of the REM statement appears in 
figure 3-7. Figure 3-8 shows some examples of the REM 
statement. 



REM ch 



ch„ 



ch, 



ch R Any comment or explanation character 
string within the 150-character total 
statement length limitation; characters 
can be continued on additional REM 
statements. 



Figure 3-7. REM Statement Format 



100 REM M EQUALS MASS IN GRAMS 


110 


REM V EQUALS VELOCITY IN CM/SEC. 


120 


REM T EQUALS KINETIC ENERGY 



Figure 3-8. REM Statement Examples 

If control reaches, or is transferred to, a REM statement, 
the next executable statement following the REM 
statement is executed. In the following example, if A is 
equal to 10, control is transferred to the REM statement 
and the next executable statement becomes 40. 

10 IF A=10 GOTO 30 

20 PRINT "A=AVERAGE" 

30 REM TEST FOR SECOND AVERAGE 

40 F B=20 PRINT "B=AVERAGE2" 



TAIL COMMENTS 

An alternate form of a comment is the tail comment. A 
tail comment can be added to the end of any BASIC 



statement, except DATA and image, by adding an 
apostrophe (') before the comment. For example: 

100 LET F = 1000 ' F IS FIXED COSTS 

An apostrophe always indicates the beginning of a tail 
comment, except when it appears in a quoted string, a 
DATA statement, or an image statement. 

PROGRAM TERMINATION 

To terminate a program, use either the END statement or 
the STOP statement. Table 3-4 shows the effects and 
usage of these two statements. 



TABLE 


3-4. END AND STOP STATEMENTS 


Statement 


Effects 


Usage 


STOP 


Terminates program 
execution. 


STOP 


END 


Marks physical end 
of a source program. 
END must be the last 
line number in the 
program. END should 
be used because it 
might be required in 
future versions. See 
Future System Migra- 
tion Guidelines, 
appendix E. 


END 



STOP STATEMENT 

The STOP statement can be used anywhere in a BASIC 
program to cause an immediate exit from the program. 
When the STOP statement is encountered, program 
execution terminates at that particular point, and control 
is returned to the operating system. Figure 3-9 shows the 
format of the STOP statement. 



STOP 



Figure 3-9. STOP Statement Format 

The STOP statement is equivalent to an unconditional 
GOTO statement that specifies the line number of an END 
statement. 

In the following example, the STOP statement causes 
program execution to terminate if Al is less than zero; if 
Al is greater than or equal to zero, program execution 
continues until the END statement is encountered. 

10DF AK0 GOTO 120 

110 IF A1>=0 GOTO 130 

120 STOP 

130 PRINT "VALUE IS SUFFICIENT." 



999 END 



3-4 
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END STATEMENT 

The END statement signals the end of a BASIC program; if 
control reaches the END statement during program 
execution, the program terminates as if a STOP statement 
had been executed. The format of the END statement 
appears in figure 3-10. 

| The END statement Is optional, but it should be used in 
programs because fufsre yer?ii'ns of BASIC might require 
its use. See the Future System Migration Guidelines, 
appendix E. 



END 



Figure 3-10. END Statement Format 
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BASIC CONTROL STATEMENTS 



This section describes control statements of the language 
that are used to change the sequence of execution of 
statements, to test and branch on a condition, to perform 
loops, and to monitor and control errors and interrupts. 



TEST AND BRANCH STATEMENTS 

Testing and branching to cert.-* i> point-, in a privjram is 
accomplished with the F, the IF ... THEN ... ELSE, the 
GOTO, and the ON GOTO statements. Table 4-1 defines 
the test and branch statements and their effects in a 
program. Further details of these statements follow 
table 4-1. 



GOTO STATEMENT 

The GOTO statement unconditionally transfers control 
from one point in the program to another, thereby 
interrupting the normal sequence of instructions. The 
format for this statement is shown in figure 4-1. 



GOTO In 
In 



Indicates line number. 



Figure 4-1. GOTO Statement Format 



GOTO specifies that the statement at the referenced line 
number is to be executed next. Normal sequential 
execution continues from that point. If a GOTO statement 
references a nonexecutable statement, such as a DIM 
statement, execution continues with the first executable 
statement that follows the referenced nonexecutable 
statement. 

Since the GOTO statement unconditionally causes control 
to be transferred to the specified line number, care must 
be taken that this does not set up an infinite loop. For 
example, consider the following program: 

10 LET X=X+1 
20 INPUT X 
30 GOTO 10 
40 END 



When this program is executed, it cycles continuously 
through lines 10, 20, and 30, and never reaches the END 
statement at line 40. It can be terminated only by 
interrupting the program. (See the NOS Interactive 
Facility reference manual or the INTERCOM Version 5 
reference manual or INTERCOM Version 4 reference 
manual.) Inserting an F statement (25 F X=100 GOTO 40) 
before the GOTO provides an exit. When the value of X 
equals 100, the F statement branches to line 40 and 
automatically terminates the program. The F statement 
is described later in this manual. 



TABLE 4-1. TEST AND BRANCH STATEMENTS 



Statement 


Effect 


Usage 


GOTO 


Unconditionally transfers 
control to a specified state- 
ment. 


GOTO 50 




ON GOTO 


Transfers control to one of 
a group of statements depen- 
ding on the integer value 
specified in the ON GOTO 
statement. 


ON A/ 3 GOTO 50,60 




IF 


Tests a relationship or a 
group of relationships. If 
the test is true, control 
moves to a referenced pro- 
gram statement; otherwise, 
control falls through to the 
next executable statement. 


IF A=20 THEN 80 




IF THEN ELSE 


An extension of the IF 
statement that specifies 
cl;j' :■'':-: an action for both true and >:■..,: 
f a^e conditions. ''■■ '■■■:v-' 


IF A<0 THEN 50 ELSE 


100 
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ON GOTO STATEMENT 

The ON GOTO statement provides for conditional 
branching depending on the value of an expression. The 
expression is evaluated and rounded to an integer value. 
Then control is transferred to lnj if ne is equal to 1; to 
ln2 if ne is equal to 2; and so forth. If the value of the 
expression is negative, zero, or greater than the number of 
line numbers specified, an execution diagnostic ON 
EXPRESSION OUT OF RANGE is issued. Figure 4-2 
illustrates the formats for the ON GOTO statement. The 
second format should not be used because it might not be 
supported in future versions of BASIC. See the Future 
System Migration Guidelines, appendix E. 



1. 


IF r 


THEN In (or) IF i GOTO In 


2 


IF r 


THEN stm 

Indicates simple or compound relational 
expression. 


r 




In 


Indicates line number. 




st in 


Indicates executable BASIC statement. 



Figure 4-4. IF Statement Format 



1. 


ON ne GOTO In-,, ln 2 . In 3 , . . . , ln n 




or 


2 


ON ne THEN ln v In,, ln 3 In. 




ne Indicates numeric expression. 




In Indicates line number. 



Figure 4-2. ON GOTO Statement Format 

In figure 4-3, SGN(A) can have the value -1, 0, or 1. The 
expression SGN(A)+2 can have the value 1, 2, or 3, and 
control transfers to statements 100, 110, or 120, 
respectively. If, for example, A has the value 2.5, then 
SGN(A)+2 has the value 3, and the order of statement 
execution is 95, 120, 130, and the next logical statements. 



20 IF 2*1 >= J a 2-1 THEN 165 

Assuming I = 8 and J = 4, the value 16 is compared to the 
value 15; the evaluation is true, the next statement executed 
is at line number 165. 

15 IF I = J OR NOT J < I THEN 140 

Assuming I = 8 and J = 4, the relation I = J is false. The 
relation J < I is true; however, NOT J < I is false. The 
compound relational expression evaluates to false (false or 
false is false) and the branch to statement 140 is not made. 

25 IF A < > THEN LET B = 

This statement causes B to be set to if A is not equal 
to 0. The next statement in sequence is then executed. 
If A = the next statement in sequence is executed but 
the LET B = is not. 



95 ON SGN(A)+2 GOTO 100, 


110, 


120 


100 


LET A=A*A 






105 GOTO 130 






110 


LET A=A*B 






115 GOTO 130 






120 


LET A=A*Ba2 






130 


LET B=A+1 







Figure 4-3. Example of ON GOTO and 
GOTO Statements 



IF STATEMENT 

The IF statement tests conditions and controls the 
sequence of operations. The formats for the IF statement 
are shown in figure 4-4. If the relational expression r is 
true, the program transfers control to the statement at 
line number In, if format 1 is used, and executes 
statement stm, if format 2 is used. Do not use the format 
GOTO because it might not be supported in future version 
of BASIC. See the Future System Migration Guidelines, 
appendix E. If the relation r is false, the next sequential 
statement is executed. Examples of simple F . . . THEN 
clauses are shown in figure 4-5. 

The stm parameter can contain any executable statement 
other than a FOR or a NEXT statement. The 
nonexecutable statements OPTION, DATA, DEF, DIM, 
END, FNEND, image, and REM are not allowed in the 
stm parameter. 



Figure 4-5. IF Statement Example 

Multiple IF . . . THEN clauses can be embedded within a 
single F statement to perform various kinds of conditional 
tests, as shown in figure 4-6. The maximum number of 
IF . . . THEN clauses is governed only by the 150 character 
line width limitation. The F statement in figure 4-6 
contains two IF . . . THEN clauses to test for a zero value in 
each of the numeric variables A and B. If both A and B are 
zero, C is assigned the value 14.3. If neither A nor B is 
zero, C is not assigned the value 14.3. 



30 IF A = THEN IF B = THEN LET C = 14 



Figure 4-6. Nested IF. ..THEN Statement Example 

Wien the F statement contains multiple F . . . THEN 
clauses, the clauses are tested consecutively, beginning 
with the first clause. 



IF . . . THEN . . . ELSE STATEMENT 

The F . . . THEN . . . ELSE statement, an extension of the 
simple F statement, enables execution to continue at a 
specified line number when the IF condition is false, as 
well as when it is true. The formats for this form of the 
F statement are shown in figure 4-7. Do not use format 2 
because it might not be supported in future versions of 
BASIC. See Future System Migration Guidelines, 
appendix E. 



4-2 



19983900 G 



; 


IF r 


THEW hi-, or sfai« ELSE Inj ot iim^ 


2. 


• ; • 


GOTO Iru ELSE ln 2 or «m 2 




r 


Indicates simple or compound relational 
expression. 




In 


Indicates : » :it,,~ i!x;-\ 




Stl 


Indicates executable BASIC statement. 



Figure 4-7. IF...THEN...ELSE Statement Format 



In figure 4-7, if the relational expression r is true, the 
program transfers control to line number ln^ or it 
executes statement stmj, depending upon which was 
specified in the statement. If the relational expression is 
false, statement stm2 or the statement at ln2 is 
executed. The statements stmj and stm2 can be any 
executable BASIC statements except FOR and NEXT. 
They cannot be nonexecutable statements such as OPTION, 
DATA, DEF, DIM, END, FNEND, image, or REM. 

Figure 4-8 contains examples of the IF . . . THEN . . . ELSE 
statement. 



1. 


IF A <0 THEN 150 ELSE 160 


2. 


IF A$ = "STOP" OR A$ = "END" THEN STOP 
ELSE 100 


3. 


IF X = THEN LET Y = ELSE LET Y = 
Y/X 


4. 


IF A = THEN IF B = THEN PRINT 1 ELSE 
PRINT 2 ELSE PRINT 3 


5. 


IF A = THEN IF B = THEN PRINT 1 ELSE 
PRINT 2 


6. 


IF A = THEN GOSUB 500 ELSE IF B = 
THEN GOSUB 600 ELSE LET B = 3 



Figure 4-8. IF...THEN...ELSE Statement Examples 



• Example 1 causes control to go to line number 150 
when A is less than zero, and to line number 160 when 
A is not less than zero. 

• Example 2 causes the program to stop when the string 
variable A$ contains either STOP or END, and to 
transfer control to line 100 when A$ contains any 
other value. 



Example 3 sets Y to zero when X is equal to 0, and 
sets Y to Y/X when X is not equal to 0. In either 
case, control falls through to the next sequential 
statement after Y has been assigned a value. 

Example 4 causes the number 1 to be printed if both A 
and B are equal to zero, the number 2 to be printed if 
A is equal to but B is not equal to 0, and the number 
3 to be printed if A is not equal to (the value of B is 
not tested in this case). Wien IF . . . THEN . . . ELSE 
statements are nested, as in this example, the inside 
ELSE belongs to the inside IF ...THEN, the next level 
ELSE (the second one seen when reading from left to 
right) belongs to the next level F THEN, and the 
levels continue in this progression (similar to the way 
nested parentheses are paired). It is not necessary to 
have as many ELSEs as IF . . . THENs however, and 
outside IF . . . THEN . . . ELSEs are executed first. 

Example 5 causes 1 to be printed if both A and B are 
equal to 0, 2 to be printed if A is equal to zero but B is 
not, and nothing to be printed if A is not equal to 
zero. In all cases, the next statement in sequence is 
executed next. There is no ELSE clause for IF A = 
THEN. It is a simple F THEN with an F THEN ELSE 
as its consequent statement. 

In example 6, if A is equal to 0, the subroutine at 
line 500 is executed, and control returns to the next 
sequential statement following the F. If A is not 
equal to 0, the relation B is equal to is tested. If B 
is equal to 0, the subroutine at line 600 is executed, 
and control returns to the next sequential line. If B is 
not equal to 0, it is set to 3, and control falls through 
to the next sequential statement. Neither the 
subroutine at line 500 nor the subroutine at line 600 is 
executed in this case. In this example, the 
consequence of the ELSE in the first 
IF... THEN... ELSE is an IF .. .THEN. . .ELSE 
statement. 



LOOPING 

Looping, the repetitive execution of the same statement or 
statements, can be efficiently controlled in BASIC with the 
FOR and NEXT statements. Table 4-2 summarizes these 
looping statements and their effect in a program. 



FOR 



NEXT STATEMENTS 



The FOR statement initiates repeated looping through the 
statements that physically follow the FOR statement, up 
to and including a corresponding NEXT statement. The 
FOR statement must appear as the first statement of the 
loop, and the NEXT statement must be the last statement 
of the loop. The format of the FOR . . . NEXT statements 
is illustrated in figure 4-9. 



Statement 



FOR 
NEXT 



TABLE 4-2. LOOPING STATEMENTS 



Effect 



Marks the beginning of a loop and in- 
itiates its execution. 

Marks the end pf the FOR loop; tests for 
end-of-loop condition and reexecutes or 
terminates depending on the results. 



Usage 



FOR 1=1 TO 10 
NEXT I 
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1. FOR snv = ne-f TO ne 2 STEP ne 3 

(or) 



2. FOR snv = ne 1 TO ne 2 



NEXT snv 
snv 



ne 3 



Indicates simple numeric variable 
(called the control variable; it must 
be identical in both statements). 

Indicates any arithmetic expression 
(called the initial value). 

Indicates any arithmetic expression 
(called the final value). 

Indicates any arithmetic expression 
(called the step value). 



Figure 4-9. FOR...NEXT Statement Formats 



When the FOR statement is executed, the expressions are 
evaluated and their values are saved as initial, step, and 
final values of the loop. The control variable is assigned 
the initial value and, if it does not surpass the final value, 
the statements between the FOR and NEXT statements are 
executed. When the NEXT statement is encountered, the 
value of the control variable is adjusted by the step value. 
A comparison is made between the value of the adjusted 
control variable and the specified final value: if the 
control value has not surpassed the final value, looping 
continues at the statement following the FOR; if it has, 
the loop is complete and execution continues with the 
statement following NEXT. The statements between the 
FOR and NEXT statements are never executed if the 
initial value is beyond the final value. 

The STEP value can be positive or negative. For a positive 
STEP value, the initial value must be less than the final 
value upon entrance to the loop. Similarly, for a negative 
STEP value, the initial value must be greater than the final 
value. If either condition is not met, the loop does not 
execute, and control branches to the statement following 
the NEXT statement. Figure 4-10 illustrates a loop with a 
specified STEP value of +2. Execution of the loop in 
figure 4-10 causes the values 1, 3, 5, 7, 9, and 11 to be. 
printed. Statements 20 through 30 are repeated six times, 
once for each value assigned to X. 



10 FOR X=1 TO 11 


STEP 2 


20 PRINT X 




30 NEXT X 




40 END 





Figure 4-10. Loop With Specified STEP Value 

The initial, final, and STEP expressions are evaluated only 
once (upon entrance into the loop). These values do not 
change during execution of the loop, even If the program 
changes the value of the variables within the expressions. 
The value of the control variable, however, can be changed 
by statements within the loop; its last value is always 
adjusted by the STEP value and is used in comparison to 
the final value, as shown in figure 4-11. Execution of the 
loop in figure 4-11 causes the values 2, 4, 6, 8, and 10 to be 



printed. Even though the FOR statement specifies that the 
control variable X be incremented by an implicit STEP 
value of +1 until it exceeds 10, the LET statement adds 1 
to X, thereby causing the control variable to be 
incremented by 2 for each pass through the loop. Thus, the 
value of the control variable can be changed by statements 
within the loop. 



10 


FOR X=1 


TO 


10 


20 


LET X=X+1 




30 


PRINT X 






40 


NEXT X 






50 


END 







Figure 4-11. Control Variable Value Changed 

After a loop has repeated itself the specified number of 
times, the final value of the control variable is the first 
value not used. That is, upon normally exiting from a loop, 
the control variable assumes its final value plus an 
additional STEP value (+1 when a STEP value is not 
specified). Using a control statement, such as GOTO, to 
prematurely terminate a loop causes the control variable 
to retain the value it has when the control statement is 
executed. Figure 4-12 shows the effect that a normal exit 
from a loop has on the control variable. The X in line 
number 120 assumes the value of 1, 3, 5, 7, 9, and 11, and 
the X in line number 140 assumes the value 13. 



100 


REM LOOP CONTROL VARIABLE EXIT TEST 


110 


FOR X=1 TO 11 STEP 2 


120 


PRINT X 


130 


NEXT X 


140 


PRINT X 


150 


END 



Figure 4-12. Loop Exit Effect on Control Variable 

Loops can be nested (loops specified within loops) to a 
maximum depth of 10, but the loops must not intersect 
each other. Examples of correct and incorrect looping are 
shown later in this section. 

A loop can contain a GOTO statement or other statements 
that transfer control outside the range of the loop. In this 
case, the loop terminates prematurely, and the control 
variable retains its latest value. Do not transfer control 
into a FOR . . . NEXT loop. See Future System Migration 
Guidelines, appendix E. 

Figure 4-13 shows the effect of the FOR statement on 
control variables. The loop initiated in line number 112 did 
not execute because the initial value is not greater than 
the final value, and the step value is negative. Figure 4-14 
shows examples of correct and incorrect looping. 



Statement 


Values 


110 FOR X = 2 to 4 


2, 3, 4, 5 


111 FOR G = 6 TO 3 STEP -1 


6, 5, 4, 3, 2 


112 FOR X = 5 TO 10 STEP -1 


5 



Figure 4-13. FOR Statement Examples 
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Correct: 


Incorrect: 




— FOR X . . . 


pFOR X . . . 




—FOR Y . . . 


-FOR Y . . . 




i-FOR Z . . . 


-NEXT X 




Lnext z 


-NEXT Y 




pFOR Q 






Lnext q 






-NEXT Y 






—NEXT X 





Figure 4-14. FOR. ..NEXT Loops 



ERROR AND INTERRUPT PROCESSING 

Three statements (ON ATTENTION, ON ERROR, and 
JUMP) and four functions (ASL, ESL, ESM, and NXL) are 
used to detect and control processing errors and the 



terminal interrupts that occur during program execution. 
Table 4-3 defines these error and interrupt processing 
statements and functions and their effects in a program. 



ON ATTENTION STATEMENT 

The ON ATTENTION statement establishes an address for 
interrupt handling if an interrupt occurs during program 
execution. It enables the program to respond to terminal 
interrupts. Figure 4-15 shows the format for the ON 
ATTENTION statement. 



1 


ON ATTENTION GOTO In 


2, 


ON ATTENTION THEN In 


3 


ON ATTENTION 


!r 


Indicates line number. 



Figure 4-15. ON ATTENTION Statement Formats 

Formats 1 and 2 in figure 4-15 specify that control is to be 
transferred to statement In if a terminal interrupt occurs 
during execution. The ON ATTENTION statement is used 
in conjunction with the attention statement line (ASL) 
function. 

The statements at In can use the ASL function to 
determine where the terminal interrupt occurred. After 
the interrupt location is determined, appropriate action to 
process the terminal interrupt can be taken; execution can 
be reinitiated at any point in the program. 



TABLE 4-3. ERROR AND INTERRUPT PROCESSING (STATEMENTS AND FUNCTIONS) 



"■';'%■■■ statement 


Effect 


■ . -J : ' Usage 


ON ATTENTION 


Establishes an address for in- 
terrupt handling if an inter- 

ruptoceufs .■.:.;'"/■"■ 


ON ATTENTION GOTO 


100 


ON ERROR 


Establishes an affiress for 

error handling if an error : 

occurs. .'.;. 


ON ERROR GOTO 100 




JUMP (ne) 


Transfers control to a orogram 
statement depending upon the 
value of an expression. 


.."■■■jump i'00.-x:... v,'y : : 




ASL (X) 


Returns the line number of the 
statement at which the last 
terminal interrupt occurred. 


'':, : ;;]':"■ ASL(50) 




ESL (X) 


Returns ihe line number of the 

"■' .: statement that caused the most. . '.": 

roccr.t program execution error 

'■'■to', occur.-' .. 


ESL(210) 




ESM (X) 


Returns the error number asso- 
ciated with the most recent 
program execution error. 


ESM(126) 




NXL (ne) 


Returns the line number of the 
statement where the program 

execution is to resume. 


NXL(25) 
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Normal terminal interrupt processing is suppressed and the 
program can gain control of interrupts by the execution of 
format 1 or format 2 of the ON ATTENTION statement. 
Normal interrupt processing is restored (ON ATTENTION 
turned off) by either the execution of format 3 of the ON 
ATTENTION statement, or after execution of ON 
ATTENTION (format 3) and after control has been 
transferred to statement In as a result of a terminal 
interrupt. 

The first ON ATTENTION statement should appear at, or 
near, the start of the program. When an ON ATTENTION 
statement is encountered during compilation, each 
following statement is changed to test for interrupts 



before execution. During execution, interrupts are 
normally recognized at the start of a statement so that 
statements are not partially executed. The exceptions are 
terminal I/O statements. Interrupts are recognized when 
an INPUT statement is waiting for data. When an input 
request is interrupted before any values have been entered, 
none of the variables on the input list are modified. 
Interrupts are also recognized at each line of output. 
However, many lines of output processing usually occur 
before data appears at the terminal, therefore some data 
lines could appear after the terminal is interrupted. 

Figure 4-16 shows how the ON ATTENTION statement can 
be used to control terminal interrupts. In the sample 



100 ON ATTENTION GOTO 900 



200 PRINT "ENTER NEXT ORDER NUMBER OR 0" 

210 INPUT N 

220 IF N = GOTO 500 '0 MEANS END OF ORDERS 



300 PRINT "ENTER NEXT ITEM NUMEER OR 0" 

310 INPUT I 

320 IF I = GOTO 400 '0 MEANS END OF ITEMS 

330 PRINT "ENTER QUANTITY" 

340 INPUT G 



900 Z = ASLC0) «Z IS LINE NUMBER AT WHICH TO CONTINUE 

910 ON ATTENTION GOTO 910 'RESET SO INTERRUPT WILL NOT CHANGE Z 

920 PRINT "INTERRUPTED AT LINE";Z;"* LAST ORDER ";N*"'* LAST ITEM"JI 

930 PRINT "TYPE STOP* NEXT ORDER, NEXT ITEM* OR CONTINUE" 

940 INPUT Z$ 

950 IF Z$ ="ST0P" THEN STOP 

960 ON ATTENTION GOTO 900 'RE-ENABLE AT ORIGINAL LINE NUMBER 

970 IF Z$ - "NEXT ORDER" THEN GOTO 200 

980 IF ZS = "NEXT ITEM" THEN GOTO 300 

990 IF Z$ = "CONTINUE" THEN JUMP Z 

995 GOTO 910 'INVALID RESPONSE. REPEAT QUESTION 

999 END 



ENTER NEXT ITEM NUMBER OR 

? 443 

ENTER QUANTITY 

? ATTN 

INTERRUPTED AT LINE 340 * LAST ORDER 6087 * LAST ITEM 443 

TYPE STOP* NEXT ORDER* NEXT ITEM* OR CONTINUE 

? NEXT ITEM 

ENTER NEXT ITEM NUMBER OR 

? 444 

ENTER QUANTITY 

? 2 



The key that initiates an interrupt varies with the operating system and the terminal mode. Consult the 
appropriate reference manual for this information. 



Figure 4-16. ON ATTENTION Statement Example 
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dialog of this figure, the programmer mistakenly types in 
443, then presses the appropriate key to cause a terminal 
interrupt. The ON ATTENTION statement establishes line 
number 900 as the ON ATTENTION address, and control 
transfers to line 900, at which point, the program offers a 
choice of recovery options. The programmer enters NEXT 
ITEM and, when the NEXT ITEM or zero is requested, the 
corrected value of 444 is entered, and the dialog continues 
normally. 



ON ERROR STATEMENT 

The ON ERROR statement is used for detecting and 
processing errors that occur during program execution. 
Figure 4-17 illustrates the three formats for the ON 
ERROR statement. 



1 


ON ERROR GOTO In 


2. 


ON ERROR THEN In 


3. 


ON ERROR 


In 


Indicates line number. 



Normal error processing is suppressed (allowing the 
program to continue executing at the ON ERROR address) 
by the execution of format 1 or 2. It is restored by either 
execution of the format 3 ON ERROR statement, or after 
execution of ON ERROR (format 3) and after control has 
been transferred to the specified statement In as a result 
of an error. 

Any execution error can be recovered from; however some 
errors, such as time limit and operator drop, can only be 
recovered from one time. (See appendix B.) An example 
of the ON ERROR statement is shown later in this section. 



.WW STATEMENT 

The JUMP statement transfers control to the statement at 
the line number determined by the value of an arithmetic 
expression. The format for the JUMP statement is 
illustrated in figure 4-18. 



JUMP 


ne 








ne 




Indicates numciic 
or expression. 


constant. 


•fmhibl'3. 



Figure 4-17. ON ERROR Statement Formats 

Formats 1 and 2 specify that control is to transfer to 
statement In if an execution error occurs. The ON ERROR 
statement, in conjunction with the error statement line 
number (ESL) function (explained later in this section) and 
the error statement message (ESM) function (explained 
later in this section), allows the BASIC program to respond 
to execution errors. 

After the error location and error type are determined, 
appropriate action to process the error can be taken; 
execution can then be reinitiated at any point in the 
program. The program should not give control to a CHAIN 
statement that chains to a copy of the original program. 
An endless loop can result if the error that caused the ON 
ERROR branch recurs each time the program is executed. 



Figure 4-18. JUMP Statement Format 

The expression is evaluated and rounded to an integer 
value; control is transferred to the statement at the 
resultant line number, provided it exists. If the statement 
does not exist, a diagnostic is issued. A JUMP statement 
cannot refer to a REM statement. Care must be taken not 
to jump into a FOR loop or functon definition. 

The JUMP statement is designed to be used in error and 
interrupt processing routines where line numbers are 
assigned to variables by use of the NXL, ESL, and ASL 
functions. The JUMP statement should never be used in 
place of a GOTO statement. 

Figure 4-19 illustrates a program example using the ON 
ERROR and JUMP statements, and the ESL, ESM, and NXL 
functions (described later in this section). The following 



00100 ON ERROR GOTO 160 

00110 PRINT "READ ERROR WILL BE PROCESSED BY PROGRAM" 

00120 READ X1,X2,X3 

00130 PRINT "VALUES READ WERE "; X1 ; " ,"; X2; " , AND"; X3 

00140 STOP 

00150 REM ERROR PROCESSING ROUTINE 

00160 X=ESLCX) 

00170 Y=ESM(X> 

00180 IF X=120 THEN 00210 

00190 PRINT "ERROR NOT IN STATEMENT 120" 

00200 STOP 

00210 PRINT "ERROR NUMBER #"; Y; "DETE CTED AT LINE #";X 

00220 JUMP NXL(X) 

00230 DATA 2 .0,3 .0," STRING" 

00240 END 



produces: 



READ ERROR WILL BE PROCESSED BY PROGRAM 
ERROR NUMBER # 126 DETECTED AT LINE U 120 
VALUES READ WERE 2,3 ,AND 



Figure 4-19. Example Using ON ERROR, JUMP, ESL, ESM, and NXL 
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sentences explain the meaning of specific line number 
statements in this program. Execution of statement 00100 
suppresses normal error processing and ensures that on a 
subsequent error, control will be transferred to statement 
line number 00160. If an error occurs in reading the data 
(line number 00120), control is transferred to statement 
line number 00160. Normal error processing is then 
reinstated. If another error occurs during further 
execution, the program aborts. In statement line 
numbers 00160 and 00170, value 00120 is saved in X and 
value 126 is saved in Y. Further action can be taken based 
on the user requirements for processing errors. Value 126 
is the error message number. The statement at line 
number 00180 indicates that if an error occurred in 
statement line number 00120, execution control is 
transferred to statement line number 00210. A jump is 
made from statement line number 00220 to statement line 
number 00130 and normal execution continues. If another 
error occurs during execution, the job aborts. 



ASL FUNCTION 

The ASL function returns the statement line number of the 
statement executing, or about to be executed, when the 
most recent terminal interrupt occurred. Figure 4-20 
shows the format for the ASL function. 



ASL(x) 



Indicates a dummy variable. 



The ESL function returns a value of -1 if an execution 
error has not occurred since the most recent execution of 
an ON ERROR statement. Thus, when processing errors, 
the function value should be saved prior to issuing another 
ON ERROR statement. 

In the statement 100 LET A=ESL(X), A is assigned the line 
number of the statement that caused the error. For an 
additional example of the ESL function, see figure 4-19. 



ESM FUNCTION 

The ESM function returns the error number associated with 
the most recent program execution error, (See table B-3 
in appendix B for a list of error numbers associated with 
execution errors.) Figure 4-22 shows the format for the 
ESM function. 



ESM(x) 

x Indicates a dummy variable. 



Figure 4-20. ASL Function Format 



Figure 4-22. ESM Function Format 

The ESM function returns a value of -1 if an execution 
error has not occurred since the most recent execution of 
the ON ERROR statement. Thus, this function value 
should be saved prior to issuing another ON ERROR 
statement. 

In the statement 100 LET A=ESM(x), the error number of 
the error is assigned to A. For an additional example of 
the ESM function, see figure 4-19. 



The ASL function returns a value of -1 if a terminal 
interrupt has not occurred since the most recent execution 
of an ON ATTENTION statement. Thus, when processing 
terminal interrupts, the function value should be saved 
before issuing another ON ATTENTION statement. 

In the statement 100 LET A=ASL(x), A is assigned the line 
number of the statement that was to be executed when the 
terminal interrupt occurred. For an additional example of 
the ASL function, refer to the ON ATTENTION statement 
example (figure 4-16). 



ESL FUNCTION 

The ESL function returns the statement line number of the 
statement executing, or about to be executed, that caused 
the most recent program execution error. The format for 
the ESL function appears in figure 4-21. 



ESL(x) 

x Indicates a dummy variable. 



NXL FUNCTION 

This function returns the next line number of the 
statement that follows the line number specified in the 
argument of the NXL function. Use NXL to determine at 
what point program execution is to resume in the event of 
an error or interrupt. 

For example, NXL(ESL(x)) returns the line number of the 
line following the one that caused the error. The format 
for the NXL function appears in figure 4-23. 



NXL(ne) 
ne 



Indicates numeric constant, variable, 
,7f expression. 



Figure 4-21. ESL Function Format 



Figure 4-23. NXL Function Function 

The NXL function should not refer to a REM statement or 
to any nonexisting statement because such referencing can 
cause program execution to terminate (unless ON ERROR 
is in effect) and the diagnostic ILLEGAL LABEL to be 
issued. The function argument ne is evaluated and rounded 
to an integer value. For an example of the NXL function, 
see figure 4-19. 
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BASIC FUNCTIONS 



A function is a predefined algorithm. Some functions 
return values (some return a single value) to the point of 
reference each time the function is invoked from an 
executing program. 

Two kinds of functions are provided with BASIC: the 
predefined functions of the language, called built-in 
functions; and the functions that can be written by using 
the DEF and FNEND statements, called user-defined 
functions. The built-in functions are in the form of subset 
programs written to perform specific kinds of tasks. 

The built-in functions and user-defined functions are 
classified as follows: 

• Built-in functions: 

Mathematical functions 

System functions 

String functions 

Matrix functions 

Error and interrupt processing functions 

I/O functions 

• User-defined functions: 

Single-line functions 
Multiple-line functions 

Although all of the built-in functions are reviewed in this 
section, some of the functions are described in more detail 
in other sections of this manual. (See the table of contents 
for specific section references. The user-defined functions 
are described at the end of this section.) 

The functions described in this section are ordered 
alphabetically within the following functional categories: 

Mathematical functions 



System functions 

String functions 

Matrix functions 

Error and interrupt processing functions 

I/O functions 



The six tables in this section identify the built-in functions 
and indicate their functional classification. See the 
Summary Card at the end of this manual for a complete 
alphabetical listing of the built-in functions. 



REFERENCING A FUNCTION 

Built-in and user-defined functions are referenced by 
specifying a function name followed by associated function 
parameters in parentheses. If there are no parameters in 
the function definition, no parameters are supplied to the 
function reference. If no parameters are used in the 
function definition, no parameters are needed in the 
function reference. The form for a function reference is 
shown in figure 5-1. 



function name (e^.e?. 



,e n ) 



Indicates numeric or string expression; 
parameter is optional. 



Figure 5-1. Function Reference Format 



The number and type of parameters (e) passed with a 
function reference must exactly correspond to the number 
and type of parameters expected by the function; for 
example, a string must be passed where a string is 
expected and a number must be passed where a number is 
expected. A diagnostic is issued if the type and number of 
parameters contained in the function reference do not 
correspond to those expected in the definition. 

Built-in function parameters that are integer quantities use 
the value of the numeric expression rounded to an integer. 
User-defined functions cannot specify that a parameter is 
an integer. With user-defined functions, all numeric values 
are real numbers and the function either truncates or 
rounds values to integers, depending upon the written 
statement. Function reference parameters are evaluated 
and the values of the parameters are passed to the 
function. The function is then evaluated and the result is 
returned to the point of the function reference. 



MATHEMATICAL FUNCTIONS 

Table 5-1 is an alphabetical list of the standard 
mathematical functions that can be referenced by a BASIC 
program. In this table, the function argument ne can be a 
numeric expression of any complexity and can include 
other function references. 



RANDOM NUMBER GENERATION 

The generation of pseudo random numbers is controlled by 
the RND function and by the RANDOMIZE statement. The 
RANDOMIZE statement overrides the predefined sequence 
of numbers generated by RND. 



RND FUNCTION 

The RND function returns a pseudo random number from 
the set of numbers uniformly distributed over the range of 
to 1. The formats for the RND function are shown in 
figure 5-2. Do not use the second format because it might 
not be supported in future versions of BASIC. 

RND is equivalent to RND(O) in that the established 
sequence of pseudo random numbers uniformly distributed 
over the range of to 1 is returned. The same sequence of 
random numbers is returned each time the program 
containing RND is executed unless the RANDOMIZE 
statement is used to override the predefined numbering 
sequence. RANDOMIZE has no effect on RND(ne). The 
RANDOMIZE statement and its effect on random number 
generation is discussed in more detail later in this section. 
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TABLE 5-1. MATHEMATICAL FUNCTIONS 



Function 



ABS(ne) 
ATN(ne) 
COS(ne) 
COT(ne) 
EXP(ne) 
INT(ne) 

LGT(ns) 
LOG(ne) 
MAX(nej,ne2,...,ne2o) 

MIN(nei,ne2,. ...neon) 

RND or RND(ne) 

ROF(ne) or 
R0r(nfi!,r;e>2) 



SGN(ne) 

SIN(ne) 
SQR(ne) 
TAN(ne) 



Description 



Finds the absolute value of ne. 

Finds the arctangent of ne in the principal value range (-tt/2) to (+7r/2). 

Finds the cosine of ne; the angle ne is expressed in radians. 

Finds the value of e to the power of ne. 

Finds the largest integer not greater than ne. 

Example: INT(5.95) = 5 and INT(-5.95) = -6. 

Finds the base 10 logarithm of ne; ne must be greater than zero. 

Finds the natural logarithm of ne; ne must be greater than zero. 

can be used. 

Returns the minimum value from the list of parameters; 2 to 20 parameters 
€»• be u'-ed. 

See description and examples for RND function. 

Finds the value of ne^ rounded to ne2 decimal places. If ne is omitted, 
then ne is rounded to the nearest integer. Some exact decimal fractions 
cannot be represented exactly in fixed word length binary computers. Re- 
sults of the ROF function, therefore, may differ by one digit from results 
obtained f "-on rounding by hand. ' 

Interrogates the sign of ne and returns a value of 1 if ne is positive; 
if ne is 0; or -1 if ne is negative. 

Finds the sine of ne; the angle ne is expressed in radians. 

Finds the square root of ne; ne must be > 0. 

Finds the tangent of ne; the angle ne is expressed in radians. 



RND 

,or) 

HND(ne) (See Future System Migration Guidelines, 
appendix E.) 

ne Indicates any numeric expression. See 

detail uxplb ■ ms late this ectinr 



Figure 5-2. RND Function Format 



An example of the RND function is shown in figure 5-3. 
The program was executed twice. The RND function twice 
returned the same set of pseudo random numbers. An 
example later in this section shows the use of the 
RANDOMIZE statement to override the RND function. 



100 FOR T=1 
110 L=RND 
120 E=RND 
130 I=RND 
140 PRINT L 
150 NEXT T 
160 END 


TO 
,E, 


3 

I 




produces: 








.580114 

.29762 

.275736 




.950513 

.4537 

.305651 


.786371 

6.26194E-3 

.689101 


produces: 








.580114 

.29762 

.275736 




.950513 

.4537 

.305651 


.786371 

6.26194E-3 

.689101 



Figure 5-3. RND Function Example 
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The value of ne in RND(ne) affects random number 
generation as follows: 

• ne>0 

A random number sequence is initialized based on the 
value of ne, and the first number in the sequence is 
returned. Each reference to RND with ne equal to a 
particular positive constant value initializes the 
sequence at the same starting point and returns the 
same value. Therefore, the same number or the same 
sequence of numbers can be returned each time RND 
is referenced and/or each time the program is run if 
the ne>0 arguments are used. RND(ne), if ne>0, can 
affect RND without the argument. 



ne = 

The next number in the established sequence of pseudo 
random numbers is returned. If the sequence was not 
previously established by an ne>0 RND reference, a 
standard constant is used to initiate the sequence. 
The same sequence of random numbers is returned 
when using RND(0) references each time the program 
is run unless you initialize the sequence with a 
different positive (>0) value each time the program 
executes. This can be done by using a first reference, 
such as RND(CLK(0)). CLK(O) returns the 
time-of-day. If ne=0, RANDOMIZE can affect 
RND(ne). 



ne<0 

The first reference initializes a random number 
sequence based on the current time of day, and returns 
the first value in that sequence. Subsequent 
references with ne<0 return the next number in the 
sequence. A program that uses ne<0 returns a 
different value on each reference and a different 
sequence each time it is run. The sequence initialized 
by ne<0 is separate from the sequence controlled by 
ne>0, and ne = references to RND sequences. 



RANDOMIZE STATEMENT 

The RANDOMIZE statement causes a new value to be 
placed in the random number generator each time a 
program containing the RND function is run. The 
placement of this new value in the random number 
generator overrides the predefined sequence of pseudo 
random numbers generated by the RND function, 
therefore, the RND function returns a different sequence 
of values each time the program is executed. Figure 5-4 
shows the format for the RANDOMIZE statement. 



RANDOMIZE 



Figure 5-4. RANDOMIZE Statement Format 

Figure 5-5 shows an example using RANDOMIZE to control 
random number generation. This program was executed 
twice. The RANDOMIZE statement causes RND to return 
a different sequence of values, unlike the example shown 
for the RND function that does not use RANDOMIZE 
(figure 5-2), so the same random values are returned each 
time the program is executed. 



090 


RANDOMIZE 






100 


FOR T=1 


TO 


3 




110 


L = RND 








120 


E = RND 








130 


I = RND 








140 


PRINT L 


,E,I 






150 


NEXT T 








160 


END 








produces: 










.249215 




.817709 


.627958 


.787186 




.503474 


.151829 


.200757 




.780481 


.899516 


produces: 










.69942 




.933368 


.707659 


.685796 




.657676 


.363484 


.948027 




.271674 


.509133 



Figure 5-5. RANDOMIZE Statement Example 

SYSTEM FUNCTIONS 

The built-in system functions are CLK$ (or CLK(x)), DAT$, 
TIM, and USR$. Table 5-2 defines the system functions, 
and figure 5-6 illustrates the use of the CLK$, DAT$, and 
TIM functions in a BASIC program. 



STRING FUNCTIONS 

The string functions provided by BASIC are used to create 
and/or manipulate character string data in specific ways. 
Strings can contain from through 131070 characters in 
normal mode and from through 65535 or through 131070 
characters in ASCII mode, depending on the number of 
escape code characters in the string. Table 5-3 is an 
alphabetical list of string functions. 



10 x=riMd ) 




20 P^INT "CLKS IIYE df'lCLKS l" = "SCLKC I > ;" IN CLK(X) 


TIME" 


30 PS INT D^IS 




AO Y=TIM<2) 




50 PrUNT "10TAL ELAPSED Tt v .E I5"SY-X 




60 END 




produces: 




CLXS TIME CF 12.SS.56.= 13.9322 IN CLKOO I IKE 




75/04/28. 




[0T4L ELAPSED 1I' V E IS .006 





Figure 5-6. Program Using System Functions CLK$, DATS, and TIM 
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TABLE 5-2. PREDEFINED SYSTEM FUNCTIONS 



Fi ■■■•■ - .■'■• 



CLKJ' 



CLK(x) T 



DAT* 



TIH(x) 



USR$ 



Description 



Returns the time of day as a string 
constant in the form: 

hh.nni. ss. 

Example: 17.36.37. 

Returns the time of day i n huurs ■ and 
fractions of an hour in a 24-hour 
scale (x is a dummy argument). 

Examples: 

(1) Three minutes and 58 seconds 

past the l ■>-.' of 9:O0 i ■ 
represented: 

9.06611 

(2) Midnight is represented: 
0.00 

(3) Noon is represented: 
12.000 

(4) 2:30 p.m. is represented: 

11.50 

Returns the date as a string con- 
stant in the following form: 

yy/mm/dd 

! Example: 74/08/11 

Returns the total elapsed central 
} processor tie? in -.ecoasfe asfief-to- 
date in this job (x is a dummy 
argument). 

Returns the N0S 7-character user 
number. On NOS/BE, this function 
returns the string USERNUM. 



'Refer to appendix E for recoimendati ons on 
the use of the CLK$ and DATS functions. 



ASC FUNCTION 

ASC returns the decimal code (ordinal position in the ASCII 
character set) of a character name or abbreviation in its 
argument. ASC returns the same result whether used in 
ASCII or normal mode. 

The mode of the program is controlled by the AS (ASCII) 
parameter in the BASIC control statement and by the mode 
of the terminal. (See Batch Operations and appendix A.) 
ASCII values range from to 127. Character abbreviations 
are listed in table A-l of appendix A. 



The format for the ASC function is shown in figure 5-7. 
Use of the ASC function is not recommended; the ORD 
function should be used instead. For guidelines, see 
appendix E. 



ASC(ch) 










or 










ASC(abr) 










ch 


fralieatss 


L-.i- charactei 






ubr 


Indicates abbreviation for 

■.■■-'-::-. ruime 


.- 


ASCII 



Figure 5-7. ASC Function Format 



CHR$ FUNCTION 

This function returns the character corresponding to the 
decimal code (ordinal position in the collating sequence) 
specified in the function argument. The format for the 
CHR$ function appears in figure 5-8. The argument ne is 
evaluated and rounded to an integer. 



CHRS ■:"■ 

ne Indicates numeric constant, variable, or 

expression. 



Figure 5-8. CHR$ Function Format 



CHR$ is valid for all characters in the current collating 
sequence, including nonprinting characters. If the standard 
ASCII collating sequence is in effect, CHR$ character 
values exist for argument values through 127; if the 
nonstandard display code collating sequence is in effect, 
CHR$ character values exist for argument values through 
63, or 1 through 63, depending on the character set being 
used by your system. (See appendix A.) OPTION 
COLLATE controls the collating sequence being used, and 
is described in the section on Fundamental BASIC 
Statements. A fatal error results if CHR$ argument values 
are outside the valid range of characters represented in the 
collating sequence. 



This function returns the same result whether used in 
ASCII or normal mode if the standard ASCII collating 
sequence is in effect. The function returns different 
values if the nonstandard collating sequence is in effect. 
The mode of the program is controlled by the AS (ASCE) 
parameter in the BASIC control statement and by the mode 
of the terminal in the BASIC subsystem under NOS. (See 
Batch Operations and appendix A.) In normal mode, 12-bit 
escape code characters do not exist. However, if the 
standard collating sequence is in effect, CHR$ returns a 
12-bit escape code character for argument values of 
through 31 and for values of 96 through 127, which are 

treated as two normal 6-bit characters when manipulated 
or printed. An example of the CHR$ function is shown in 
figure 5-9. 
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TABLE 5-3. STRING FUNCTIONS 



Function 



IflSsSlpiidK 



ASC(ch) or 

ASC(abr) 

CHR$(ne) 



u:n(so) 

LPAD$'se,ne) 

LTRM$(se) 

LWRCS(se) 

ORD(se) 

P0S(sei,se2,ne) 

or 
PGS( sei.se?) 

RPAD$(se,ne) 

RPT$(se,ne) 

RTRMS(se) 

STRS(ne) or 
STR$(ne,se) 

UPRCS(se) 

VAL(se) 



Returns the ASCII code in decimal of the character in its argument. Use ORD 
instead. t 

Returns the character with the decimal code (ordinal position in the collating se- 
quence) that corresponds to ne . ■•y^::"- ':' : : : :"f : : : ■ '/l; :'; Jy'V;;- ; : ; >>y:''' . ' : tf ': "■ /:■":■'. 

Determi nes current 1 ength of str i ng sc. '■:■■ ?:'yy':"- yr'l :■ .:■.■;■; ';.■: ■'■'. '• ,;'■■';.',■;' ■iv : ' : ; : -i' 

Pads a string out to ne characters by adding spaces on the left of the string se. 

Trims string sc of all leading space characters. ^ y^ : y: : ;s, yy. : y/liic-S'-^'y':^ 

Returns a string consisting of the se string value with all uppercase letters 
replaced by their lnwnrcasc equivalents. ■ : /': ; ;" : .. '.'■.-:■ r ^y' 

Returns the decimal code (ordinal position) of a character in string se in the 
collating sequence being used. : 'v'v ■::''■■ \,-; ; ■:';?.- .»:;'; 

Returns the position of string se2 within string sej. The position search begins 
with character ne. ■ If ne is omitted, 1 is assumed. ;' >'; .'.:■' :■:'.:'.;.:.: '.:':.'.; 



Pads string se to ne characters by inserting blanks on the right of string se. 

Returns the string created by repeating the se string ne times. 

Trims string se of all trailing space characters. 

Converts numeric value to string representation. If present, se represents an image 
specification. 

Returns string se with all lowercase letters replaced by their uppercase equivalents. 

Converts string se to its numeric value. 



'See Future System Migration Guidelines, appendix E. 



LEN FUNCTION 

The LEN function returns the current length, in characters, 
of the string specified by the argument in this function. 
Figure 5-10 shows the format for the LEN function, and 
figure 5-11 shows an example of how to use this function 
to return the length of the string S$. 



I PAfK FUNCTION 

The LPAD$ function pads a string out to a specified 
number of characters by inserting blanks on the left (called 
left pad). Figure 5-12 shows the format for the LPAD$ 
function. 

In figure 5-12, if ne is not greater than the length of se, 
then se is the resultant string. If ne is in the form of an 
expression, the argument is evaluated and rounded to an 
integer. If ne is less than zero, the diagnostic ILLEGAL 
LPAD$ ARGUMENT is returned. 

In figure 5-13, the LPAD$ function pads two space 
characters to the left of the string value for A$; the output 
from the PRINT statement shows the two spaces between 
and 12345. 



LTRM$ FUNCTION 

The LTRM$ function trims the original string of all leading 
space characters (spaces on the left). The format for 
LTRM$ is shown in figure 5-14. 

In figure 5-15, the LTRM$ function trims the leading space 
characters of string B$. The printout from the second 
PRINT statement has no spaces between the value 8 and 
the value 12345. 



LWRC$ FUNCTION 

The LWRC$ function returns the original string with all its 
uppercase letters replaced by their lowercase equivalents. 
The LWRC$ function is only useful in ASCII mode. In 
normal mode, the LWRC$ function returns the original 
string in its same form because no lowercase letters exist 
in the normal character set. The results of this function 
depend on the terminal you use. Figure 5-16 illustrates the 
format for the LWRC$ function. 

In figure 5-17, the LWRC$ function returns the lowercase 
equivalent of the value of string A$. The returned value 
"file a" is shown below the original value "FILE A". 



19983900 G 



5-5 • 



10 REM 98 IS THE ASCII CODE FOR LOWER CASE B 

15 OPTION COLLATE STANDARD 

20 LET B$=CHR$(98) 

30 PRINT B$;" IS"; LEN CBS) ; " CH AR ACTER C S) " 

40 END 



produces: 



b IS 1 CHARACTERCS) 

RUN COMPLETE, 
norma I 

READY, 
rnh 

"B IS 2 CHARACTERCS) 

RUN COMPLETE. 
15 option collate native 
Inh 

10 REM 98 IS THE ASCII CODE FOR LOWER CASE B 

15 OPTION COLLATE NATIVE 

20 LET B$=CHR$(98) 

30 PRINT 8$;" IS";LEN<B$) ; "CHARACTERCS) " 

40 END 

READY, 
rnh 

ILLEGAL CHRS ARG AT 20 
BASIC EXECUTION ERROR 



LEN(se) 



Figure 5-9. CHR$ Function Example 



Indicates a string constant, variable, or 



Figure 5-10. LEN Function Format 



100 LET S$="543" 
110 LET A=LEN(S$) 
120 PRINT A 



produces: 



Figure 5-11. LEN Function Example 



LPADS(se.ne) 



Indicates the string constant, variable, or 
expression; represents the string to be padded 
with spaces.. v ;,: - ..:'»'■ ■ ■'.■■■■'.v..-V' '■'■ -.■:: 

Numeric expression that indicates the desired 
length of the resulting string; ne must be 
greater than or equal to zero. 



Figure 5-12. LPAD$ Function Format 



100 A$="1234" 
110 B$=LPAD$CA$,6) 
120 PRINT "0";B$; ,, 5" 
130 END 



produces: 



0AA12345 



Figure 5-13. LPAD$ Function Example 



LTRM$(se) 



String constant, variable, or expression 
that represents the string to be trimmed. 



Figure 5-14. LTRM$ Function Format 



100 B$="AA12345" 






105 PRINT "8";B$;"5" 






110 PRINT "8";LTRM$CB$); 


II C II 




produces: 






8AA1 23455 






8123455 







Figure 5-15. LTRMS Function Example 
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LWRC$<s») 



String constant, variable, or expression 
that represents the string to be converted 
to fooarcaso. 



Figure 5-16. LWRC$ Function Format 



100 


A$="FILE 


A" 


110 


PRINT 


AS 




120 


BS=LWRC$CA$) 


130 


PRINT 


B$ 




produces: 








FILE 


A 






fi Le 


a 







Figure 5-17. LWRC$ Function Example 
ORD FUNCTION 

The ORD function returns the decimal code (ordinal 
position) of a character in the collating sequence being 
used. The character or abbreviation for a character name 
having its ordinal position returned is specified as a string 
in the function argument, as shown in figure 5-18. 



ORD(se) 
se 



Indicates a string constant, variable, or 
expression that can have the values of 
single characters, and the 2- and 3- 
character mnemonic abbreviations of 
the ASCII character set in appendix A. 



Figure 5-18. ORD Function Format 

Decimal codes that represent ordinal positions range from 
to 127 when the standard ASCII collating sequence is in 
effect, and from to 63 or 1 to 63 when the nonstandard 
display code collating sequence is in effect (see the 
OPTION statement and appendix A). The diagnostic 
ILLEGAL ORD ARGUMENT is issued if the argument 
string contains more than one character and the string is 
not an abbreviation for a character name. Figure 5-19 
shows an example of using the ORD function. 



POS FUNCTION 

The POS function returns the starting character of one 
specified string within another specified string. The 
format for the POS function appears in figure 5-20. 



POS(se v 


se 2 . ne) or POSIsej, se 2 ) 


se. 


String constant, variable, or expression; 
represents the string to be searched. 


se 2 


String constant, variable, or expression; 
represents the string to be found. 


ne 


Numeric constant, variable, or expression 
that represents the position at which to 
start the search. Optional for starting 
position 2. u.i> v', S. " : l 



Figure 5-20. POS Function Format 



The POS function returns the first character position of 
string se2 within string se^. The search for this first 
character position begins at position ne. Character 
positions are numbered from the left, and start with one. 



If the value associated with se2 does not occur within 
the designated portion of sej, the function value will 
return zero. If starting position ne is omitted or less 
than 1, it is considered to be equal to 1. If ne is greater 
than the number of characters of se^, the portion of 
sex b em g specified is the null string starting after the 
last character position of se^. The numeric expression 
ne is evaluated and rounded to an integer. 



Figure 5-21 shows a program using the POS function to 
determine the position of different string characters within 
the original string A$ that has the value OUTSTANDING. 



RPAD$ FUNCTION 

The RPAD$ function pads a string to a specified number of 
characters by inserting blanks on the right (called right 
pad). Figure 5-22 shows the format for the RPAD$ 
function. 



100 


PRINT 


"PROGRAM FOR 0R0 


FUNCTION" 


105 


LET A$="a" 






110 


A=0R0(A$) 






115 


PRINT 


"CHARACTER ";A$; 


' HAS 


ORDINAL OF ";A 


120 


PRINT 


ORDC'LCA") 






130 


PRINT 


ORD ("5") 






140 


PRINT 


0RD( M BS") 






produces: 










PROGRAM FOR 0R0 FUNCTION 






CHARACTER 


a HAS ORDINAL OF 


97 




97 










53 










8 











Figure 5-19. ORD Function Example 
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10 


PRINT 


-POS FUNCTION PROGRAM 


- 














20 


PRINT 


















30 


LET ASs-OUTSTANDING- 
















40 


LET A*P0S<AS*"AN-»2) 
















50 


PRINT 


"THE POSITION OF 'AN' 


START INS 


WITH 


CHARACTER 


POSITION 


2 IS "iA 


60 


PRINT 


FOSCAS,"ST"> 
















70 


PRINT 


POSCA$,-AN-, I5> 
















80 


PRINT 


POSCAS*"T-> 
















produces: 




















POS FUNCTION PROGRAM 
















THE POSITION OF 'AN* STARTING 


WITH 


CHARACTER 


POSITION 2 


IS 


6 




4 


3 





















Figure 5-21. POS Function Example 



RPAD$(se.ne) 



s ;l»:K 



A string constant, variable, or expression that 
represents the string to be padded with space 
characters. 

A numeric constant, variable, or expression 
that indicates the desired length of the resulting 
string; ne must be greater than or equal to zero. 



Figure 5-22. RPAD$ Function Format 



If the length argument ne is not greater than the string 
argument se, then se is the resultant string. The argument 
ne is evaluated and rounded to an integer. If ne is less than 
zero, the diagnostic ILLEGAL RPAD$ argument is returned. 

In figure 5-23, the RPAD$ function pads string A$ with one 
blank in order to generate a 2-character string. The 
printout from the second PRINT statement has a space 
between ABCD and EF. 



100 A$ = "0' 




110 PRINT 


"ABC"; A$;"EF" 


120 PRINT 


"ABC";RPAD$(A$,2);"EF" 


produces: 




ABCDEF 




ABCDAEF 





Figure 5-23. RPAD$ Function Example 



RPT$ FUNCTION 

The RPT$ function generates a string consisting of several 
repetitions of the argument string. The format for the 
RPT$ function appears in figure 5-24. 

If the repetition argument ne is greater than zero, the 
function returns a string consisting of ne occurrences of 
the characters in string se. If ne is zero, a null string is 



returned. If ne is less than zero, the diagnostic ILLEGAL 
RPT$ ARGUMENT is returned. The argument ne is 
evaluated and rounded to an integer. Figure 5-25 shows 
three examples of the RPT$ function. 



RPTS(se,ne) 



ne 



Indicates a string constant, variable, or expression 
representing the string that is to be repeated. 

Indicates a numeric constant, variable, or 
expression specifying the number of times string 
i ■■ -.: ! -•■ repeal d 



Figure 5-24. RPT$ Function Format 



RTRM$ FUNCTION 

The RTRM$ function trims the original string of ail trailing 
space characters (spaces on the right). Figure 5-26 
illustrates the format for the RTRM$ function. 

In figure 5-27 the RTRM$ function trims the two trailing 
space characters of string A$. The printout from the 
second PRINT statement has no spaces between the 345 
and the ABC. 



STR$ FUNCTION 

The STR$ function converts a numeric value to a string 
representation. The format for this function appears in 
figure 5-28. 

In format 1 of the STR$ function, the resultant string is 
formatted according to the image specified by se. The 
image se can contain alphanumeric constants and any 
specification control characters that are allowed in the 
image statement. (See I/O Statements for a complete 
discussion of format images.) If se is absent, as shown in 
format 2 of figure 5-28, the string is formatted according 
to the standard rules for numeric output except no 
preceding or trailing blanks are included. (See I/O 
Statements and Functions for a complete discussion of 
standard rules for numeric output.) Figure 5-29 illustrates 
two examples of the STR$ function. 
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10 LET A$ = RPT$("*",132) 

20 IF B$ = RPT$("",80) THEN 90 

05 LET C$ = RPT$("ABC",2) 



A$ is assigned the string consisting of 132 asterisks {*). 

Control is transferred to statement 90 if 
B$ consists of 80 blanks. 

C$ is assigned the string ABC ABC. 



Figure 5-25. RPT$ Function Examples 



RTRMS(se) 



■ 



Indicates a string constant, variable, or 
expression; it represents the string with 
spaces to be trimmed. 



Figure 5-26. RTRM$ Function Format 



10 A$="1A345 

20 PRINT A$;"ABC" 

30 PRINT RTRM$CAS>;' , ABC" 



produces: 



1A345AA ABC 
1A345ABC 



Figure 5-27. RTRM$ Function Example 



;. - 1. ■-.-, 

or 

STR$(ne,se) 

ne 



Indicates numeric constant, variable, or 
expression. 

Indicates string expression (image 
specification). 



UPRC$ FUNCTION 

The UPRC$ function returns the original string with all its 
lowercase letters replaced by the uppercase equivalents. 
The UPRC$ function is only useful in ASCII mode. In 
normal mode, the UPRC$ function returns the original 
string in its same form because there are no lowercase 
letters in the normal character set. The format for the 
UPRC$ function is shown in figure 5-30. Figure 5-31 
illustrates an example of this function (all of the letters 
change except D). 



VAL FUNCTION 

The VAL function converts a string containing numbers to 
a numeric value. The VAL function is the inverse of the 
STR$ function. The format of the VAL function is 
indicated in figure 5-32. The string must be written in the 
form of a numeric constant. Examples of this function are 
illustrated in figure 5-33. 



ERROR AND INTERRUPT PROCESSING 

Table 5-4 summarizes the functions used in error and 
interrupt processing. Further details on these functions 
are in section 4. 



MATRIX FUNCTIONS 

Table 5-5 outlines the functions used to simplify the use of 
matrices. For more details regarding these matrix 
functions, see the section on Matrix Operations. 



I/O FUNCTIONS 



Figure 5-28. STR$ Function Format 



Table 5-6 briefly describes the functions used in I/O 
operations. Further details of these functions are 
described in the section I/O Statements and Functions. 



010 B$ = STR$(A(1,6» 

Assuming A(1, 6) - 1234, execution of this statement assigns the string 1234 to B$. 

010 A$ = STR$(I, "COSTPRICE = $###.## LESS DISCOUNT") 

Assuming I = 203.23476, execution of this statement assigns the string COSTPRICE = 
$203.23 LESS DISCOUNT to AS. 



Figure 5-29. STR$ Function Example 
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UPRC$(se) 



String constant, variable, or expression; 
represents the string to be converted to 
uppercase letters. 



VAL(se) 



Indicates a string constant, variable, or 



Figure 5-30. UPRC$ Function Format 



Figure 5-32. VAL Function Format 



10 A$=UPRC$<"Departi»ent 4") 
20 PRINT A$ 



produces: 

DEPARTMENT 4 



Figure 5-31. UPRC$ Function Example 



Function 



ASL(x) 

ESL(x) 

ESM(x) 
NXL(ne) 



1. 110 LET B9 = VAL(B$.(1» 

2. 100 LET X4 = 2*C4 + VAL{"123.7") 

3. 090 LET IF VAL<D$(I,J))<24 THEN 291 

Assuming that B$(1) in example 1 contains a string 1234, 
then the numeric value 1234 is assigned to B9. 

Similarly, in the latter two examples, numeric values are 
extracted and used for arithmetic purposes or for com- 
parison with a numeric constant. 



Figure 5-33. VAL Function Examples 
TABLE 5-4. ERROR AND INTERRUPT PROCESSING FUNCTIONS 



Description 



Returns the statement Tine number of the statement executing or about to 
be executed when the most recent terminal interrupt occurred. 

Returns the statement line number of the statement that caused the most 

Returns the error number of the most recent execution error. 

Returns the next line number of the statement that follows the line num- 
: .. ■ .- f ed in the argument of this function. 



TABLE 5-5. MATRIX FUNCTIONS 



:ifH§ilii;:« 



(or) 
(or) 


IDN 

TDNCneil 

IDN(nei,ne2) 


(or) 
(or) 


CON 

CON(ne) 

C0N(nei,ne2) 


HiHjCpl IlilillBP! ;iMl: I 


TRN(m) 


(or) 
(or) 


ZER 

ZER(ne) 

ZER(nei,ne2) 




INV(m) 




DET(m) 




DET 



Description 



Returns an identity matrix (ones along the diagonal; zeros 
in the remaining areas). The result is a square matrix 
with n x n elements where nj = nei = ne^ or n = dimension 
of an array is assigned if no ne is specified. 

Returns a matrix of all ones with dimensions of nei x ne?, 
ne x ne, or the dimension of the array to which CON is 
assigned. 

'•■fe^urnsj ||%7t^sn'isj|^i:';bf ■ ■^fc^SC ^ftii ;v .'-" "'■'=-' -': ; .'--^ :t ■'1-^'^.^'' = ' '"^ -'f 1^?- M'^ 

Returns a matrix of all zeros with dimensions nei x ne?, 
ne x ne, or the dimensions of an array to which ZER is 
assigned. :-Svk:± : -f!-^^-?.'''' : i:K : .' ! <- '■•■•'■■ '■'. >:':•: : : ':'■■■ ? " ; -; r v.;-' 

Returns tho inverse of matrix m. 

Returns the determinant i:f matrix t. 

Returns the determinant of the matrix most recently 
live- ted by the INV function. 
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TABLE 5-6. I/O FUNCTIONS 



Function 


Description 


LOC(ne) 
LOF(ne) 
TAB(ne) 


Returns the current word position in 
the random file ne. 

Returns the length in words of the 
rawdv-Fi hinnry f'Pe no. 

Returns a string of blanks, which 
results in moving the print mecha- 
nism to print position ne. TAB can 
only be used with the PRINT state- 
ment. 



USER-DEFINED FUNCTIONS 

BASIC, in addition to providing built-in functions of the 
language, also permits you to define your own functions. 
User-defined functions can be written either as single- or 
multiple-line functions. When these functions are 
referenced, they return a value based upon the parameters 
passed by the function reference and the function 
definition. User-defined functions are referenced the same 
as built-in functions. See Referencing a Function. 

The DEF and FNEND statements are provided to write 
user-defined functions. To write a single-line function, 
only the DEF statement is used. To write a multiple-line 
function, the function definition must begin with the DEF 
statement and end with the FNEND statement. Any BASIC 
statement, except END and another DEF statement, can be 
located between the DEF and FNEND statements. 
Table 5-7 summarizes the effect and usage of the DEF and 
FNEND statements. 

TABLE 5-7. USER-DEFINED FUNCTIONS 



Statement 


Effect 


Usage 


DEF 


Defines a 
function. 


DEF FNA(X) = A+B+C 


FNEND 


Teriiinatev 
definition of 
•■ a multiple- 
line 
function. 


FNEND 



SINGLE-LINE FUNCTION/DEF 

The DEF statement is used to write a single-line 
user-defined function. A single-line function is a complete 
definition on one statement line. It can be in the form of a 
numeric function or a string function, and it can contain 
parameters (up to 20 parameters are allowed). The format 
for a single-line function appears in figure 5-34. 



1. 


DEF FNa=ne 


2. 


DEF FNa (svi,sv 2 , . . . ,sv 2o ) = "e 


;. 


DEF FNa$=se 


4. 


DEF FNa$ (sv^svo, ■ . ■ .svoq) * se 




a Any alphabetic character that uniquely 
identifies the function. 




ne Indicates numeric expression. 




se Indicates string expression. 




svi . . . SV20 Indicates simple variable numeric or 
string. 




NOTE 




Formats 1 and 2 are for numeric functions; 
formats 3 and 4 are for string functions. 



Figure 5-34. String Function With DEF Format 

The rules for writing a single-line function using DEF are 
as fallows: 

• The variables sv are formal parameters. They can be 
used elsewhere in the program without affecting the 
function. Each formal parameter must be unique 
within the function. From to 20 formal parameters 
are permitted. 

• The expression defining the function can include 
variables other than formal parameters. The current 
value of these variables is used when the function is 
evaluated. 

• The definition must be complete on one line. 

• A function can include references to built-in BASIC 
function or other user-defined functions, but not to 
the function being defined; recursive definitions are 
not allowed and an error diagnostic is issued at 
compilation time. 

• Although a user-defined function can be referenced 
before it is defined, this is not recommended. A 
compile time warning diagnostic is issued when this 
occurs (WARNING - FUNCTION REFERENCE 
BEFORE DEFINITION). See the Future System 
Migration Guildines, appendix E. 

• Although a function can be redefined within a 
program, it is not recommended; a compile time 
warning diagnostic is issued when this occurs 
(WARNING - FUNCTION REDEFINITION). If a 
function is redefined, the definition used is the one on 
the highest line number before the line containing the 
function reference; for a function referenced at a line 
number before any definitions, the definition used is 
the one with the lowest line number after the function 
reference. See the Future Systems Migration 
Guidelines, appendix E. 
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Figure 5-35 shows three examples using the DEF statement 
to express a single-line function. In example 1 of 
figure 5-35, line number 10 contains the function 
definition, and line number 20 contains the function 
reference. 

In example 2 of figure 5-35, FNA computes the area of a 
circle when given its radius, FNC computes the 
circumference of a circle when given its diameter, and 
FNV computes the volume of a sphere when given its 
radius. Note that the definition FNV uses the function 
FNA. At line 40, four columns of headings are printed. 
The FOR loop prints, on successive lines, a radius and the 
corresponding circumference, area, and volume computed 
by the user-defined functions. 

In example 3 of figure 5-35, a DEF statement with no 
formal parameters is used to define the area of a circle 
having a radius of .2. 



MUITIPLE-UNE FUNCTIONS/ DEF . . . FNEND 

Multiple-line functions are defined through use of the DEF 
and FNEND statements. The function definition must 



begin with the DEF statement and end with the FNEND 
statement. Any BASIC statement, except for another 
DEF, can appear between the DEF and FNEND 
statements. A multiple-line function can be in the form of 
a numeric or string function, and it can contain parameters 
(maximum of 20 parameters are allowed). The format of a 
multiple-line function appears in figure 5-36. 

The rules for writing a multiple-line function using the 
DEF . . . FNEND statements are as follows: 

• The variables (sv) are formal parameters. They can be 
used elsewhere in the program without affecting the 
function. Variables used as formal parameters are 
local to the function; for example, changing the values 
within the function has no effect on variables of the 
same name outside the function. 

When a function is referenced (described under 
Referencing a Function), parameter expressions are 
evaluated and their values are passed to the function. 
Therefore, changing the value of a formal parameter 
within a function only effects the local value of the 
parameter, not the value of the parameter expression 
or variable used in the expression outside the function. 



1. 



10 DEF FNACM,N,0,P)=M+N+0+P 
20 LET E=FNA(2,3,4,5) 
30 PRINT E 
40 END 



(Function definition) 
(Function reference) 



produces: 
14 



10 DEF FNACR)=3.14159*R**2 

20 DEF FNC(D)=3 .14159*0 

30 DEF FNVCR)=FNA(R)*R/3 

40 PRINT "RADIUS", "CIRCUMFERENCE"," 

50 FOR R=.1 TO 1 STEP .3 

60 PRINT R,FNC(2*R) , FNA( R ) , FNV C R) 

70 NEXT R 

99 END 



AREA"," VOLUME' 



produces: 








RADIUS 
.1 
.4 
.7 

1 


CIRCUMFERENCE 
.628318 
2.51327 
4.39823 
6.28318 


AREA 
3.14159E-2 
.502654 
1 .53938 
3.14159 


VOLUME 
1.04720E-3 
6.70206E-2 
.359188 
1 .0472 



10 DEF FNP=3. 14159 

20 DEF FNA(R)=FNP*R**2 

30 PRINT "AREA="; FNAC.2) 

40 END 

produces: 

AREA= .125664 



Figure 5-35. Single-Line Function Example/DEF 
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1. DEF FNa 
I.F.T FNa-ne 

FNEND 

2. DEF FNa (sv v sv 2 sv 2o ) 

LET Fftto-ne! 

FNEND 

3. ; DEF FNa$ . '■ • . '■.'■;'•..■ ' ; . 

LET FNa$"se 

FNEND 

4. DEF FNa$ <sv t ,sv 2 . ■ ■ . '&f^:'~- y v >.:;.;■; r ; . 
LET FNa$=se 

FNEND 

a Indicates any alphabetic character that uniquely 
'"..'■'... identifies the function, 

ne Indicates numeric expression. 

se Indicates string expression. 

sv Indicates simple, numeric, or string variable. 



NOTE 

Formats 1 and 2 are for numeric functions; 
fcrrasts 3 and 4 afa far stnito ftwuiMMfe. 



Figure 5-36. Multiple-Line Function Format 
with DEF . . . FNEND 



The expression or expressions within the function 
definition can include other program variables in 
addition to the formal parameters; these are global 
variables and have the same values inside and outside 
the function. 



Global variables can have their value changed by 
operations within the function definition. Unexpected 
results can occur if a global value that has been 
changed in a function is used in an expression 
containing the function reference. 



A function can include references to built-in or other 
user-defined functions, but not to itself; recursive 
function definitions are not permitted. 



It is illegal to reference a line number outside a 
function definition from within the definition, or to 
reference a line number in a function definition from 
outside the definition. An attempt to do so causes the 
compile time diagnostic TRANSFER OUT OF DEF or 
TRANSFER INTO DEF to be issued. 



• The function name must be assigned a value if the 
function is to return other than a or null. 



A function definition can appear after a function 
reference; however, it is not recommended. The 
warning diagnostic WARNING - FUNCTION 
REFERENCE BEFORE DEFINITION is issued. See 
Future Systems Migration Guidelines, appendix E. 



A function can be redefined within a program; 
however, this is not a recommended programming 
practice. The diagnostic warning WARNING - 
FUNCTION REDEFINITION is issued. If a function is 
redefined, the definition used is the one on the highest 
line number before the line containing the function 
reference; or for a function referenced at a line 
number before any definitions, the definition used is 
the one with the lowest line number after the function 
reference. See Future Systems Migration Guidelines, 
appendix E. 



• Statements located between the DEF and FNEND 
statements can be any BASIC statement except END 
and another DEF statement. 



• The function name can be used as a local variable 
within a function definition (on the right side of the 
statement). However, such usage is not recommended 
because it might not be supported in a future version 
of BASIC. See Future System Migration Guidelines, 
appendix E. 

Figure 5-37 shows two examples of writing and referencing 
multiple-line functions. The first example illustrates a 
string function; the second example illustrates a numeric 
function. 

In example 1 of figure 5-37, the function FNR$ replaces 
the characters of A$, starting with character I, with the 
first three characters of B$. B$ is blank padded to J, if 
necessary. 

In example 2 of figure 5-37, the function FNM uses its 
formal parameter N as a local variable. Changing its value 
in the function (line numbers 00170 and 00200) has no 
effect on the actual parameter M passed to the function at 
line number 00220. Note also that the actual parameter 
need not be used in calculating the function result. The 
result in this example Is calculated from global variables 
B(0),...,B(4). 
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Example 1 (String Function) 


00100 


REM EXAMPLE OF MULTI-LINE STRING FUNCTION 


00110 


DEF FNR$(A$,I,J,B$) 


00120 


REM REPLACE J CHARACTERS OF AS BEGINNING AT CHARACTER I 


00130 


REM WITH THE FIRST J CHARACTERS OF B$ . 


00140 


REM B$ IS PADDED TO LENGTH J, IF NECESSARY. 


00150 


IF J<LEN(B$) THEN LET B$=RPAD$ <B$, J ) 


00160 


LET A$<I:I+J-1)=B$(1 :J) 


00170 


LET FNR$=AS 


00180 


FNEND 


00190 


LET X$="ABCDEFGH" 


00200 


LET YS="12345" 


00210 


PRINT FNRS(XS,3,4,YS) 


00220 


END 


produces: 




AB1234GH 


Example 2 (Numeric Function) 


00100 


DIM B(5) 


00110 


PRINT "TYPE IN ANY 5 NUMBERS" 


00120 


INPUT B(0),B(1),B(2),B(3),B(4) 


00130 


LET M=17 


00140 


REM FUNCTION DEFINITION 


00150 


DEF FNM(N) 


00160 


LET FNM-B(O) 


00170 


FOR N=1 TO 5 


00180 


IF FNN>=B(N) THEN 200 


00190 


LET FNN=B(N> 


00200 


NEXT N 


00210 


FNEND 


00220 


LET Y=FNH(M) 


00230 


PRINT "THE VALUE OF M IS UNCHANGED BY THE FUNCTION" 


00240 


PRINT "IT IS STILL ";M 


00250 


PRINT "MAXIM IS ";Y 


00260 


END 


produces: 




TYPE IN ANY 5 NUMBERS 


? 89,78,45,67,9 


THE VALUE OF N IS UNCHANGED BY THE FUNCTION 


IT IS 


STILL 17 


MAXIM 


IS 89 



Figure 5-37. Multiple-Line Function Examples/DEF . . . FNEND 
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SUBROUTINES, SUBPROGRAMS, AND CHAINING 



This section describes the statements used to write BASIC 
subroutines, link to external subprograms, and chain to 
other programs. Table 6-1 outlines the subroutine, 
subprogram, and chaining statements. Further details for 
these functions and statements follow the table. 

BASIC SUBROUTINES 

When a particular part of a program must be performed 
more than once, it is useful to use a subroutine. Control 
can be transferred to a subroutine from the main program 
and, at the conclusion of the subroutine, be returned to the 
main program. 

Within the main BASIC program, control can be transferred 
to BASIC subroutines. These subroutines are compiled 
along with the main program. The following paragraphs 
describe the method of calling subroutines using the 
GOSUB or ON GOSUB statements. The RETURN 
statement directs execution to the most recently executed 
GOSUB or ON GOSUB. The following rules must be 
followed when using these statements: 

• Any number and type of BASIC statements are allowed 
in a BASIC subroutine. 

• GOSUB statements can be nested to a depth of 40. 

• Recursion is allowed; a subroutine can contain a call 
to itself. 

Figure 6-1 illustrates a subroutine call and return 
sequence. Lines 150 through 220 contain subroutine A. 
The subroutine is called from line 60. After execution of 
subroutine A, control is transferred to line 70, and at 
line 80 execution is directed to line 230 (the end of the 
program) bypassing the subroutine statements. 



GOSUB STATEMENT 

The simple GOSUB statement unconditionally transfers 
control to a line number that is the first statement of the 
subroutine. Figure 6-2 shows the format of the GOSUB 
statement. 



GOSUB In 



In 



Indicates the line number of the first 
statement of the subroutine. 



Figure 6-2. GOSUB Statement Format 

Execution of the GOSUB statement and the RETURN 
statement (described later) can be described in terms of a 
stack of line numbers. The stack is empty prior to 
execution of the first GOSUB statement. Each time a 
GOSUB statement is executed, the line number referred to 
in the GOSUB statement is placed on top of the stack and 
execution of the program continues at this line number, 
which is the first statement of a subroutine. Each time a 
RETURN statement is executed, the line number on top of 
the stack is removed from the stack and execution of the 
program is continued at the line following the line number 
presently at the top of the stack. 

A GOSUB (or ON GOSUB) statement can be used within 
one subroutine to transfer control to another subroutine; 
these are nested subroutines. The GOSUB statement can 
be used 40 times in these nested subroutines. Each 
subroutine in nested subroutines is executed by the stack 
order, explained under the GOSUB statement. A GOSUB 
can be ended without a RETURN. For example, execution 
can be stopped inside a subroutine. An example of nested 
subroutines is shown in figure 6-3. 



10 REM USER PROGRAM TRANSFERS CONTROL TO SUBROUTINE A 

20 

30 

40 

SO 

60 GOSUB 150 — — — — — 

-70 LET Z=A**2 
SO GOTO 230 
90 

100 . 
120 . 
130 . 

140 REM SUBROUTINE A 
150 LET A=1+X 
160 
170 



180 
190 
200 
210 
-220 RETURN 
230 END 



Transfer control to subroutine 



Subroutine A 



Figure 6-1. BASIC Subroutine and RETURN Statement 
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TABLE 6-1. SUBROUTINE, SUBPROGRAM, AND CHAINING STATEMENTS 



Statement 


Effect 


Usage 


GOSUB 


Transfers control to a BASIC sub- 
routine. 


GOSUB 150 


ON GOSUB 


Conditionally transfers control to a 
subroutine depending upon the integer 
'. ■■ ■• ' r -. .' '• ■"-■.- N .- -.-.", 1 ine. 


ON X-Y GOSUB 20,30 


RETURN 


Upon completion of the subroutine, 
returns control to the statement im- 
mediately following GOSUB or ON GOSUB. 


RETURN 


. 


Permits execution to a separately com- 
piled &'ibpri)%rm in non-BASIC lan- 
guage. 


CAL SUB2 


CHAIN se 
CHAIN #ne 


Permits control to exit from a BASIC 
program by terminating the current 
program and initiating execution of 
another program. 


CHAIN "CHESS" 



80 
-90 



150 



GOSUB 150- 



160 GOSUB 250 
170 



200 RETURN J 
250 



■—.300 RETURN 



Figure 6-3. Nested Subroutines 

ON GOSUB STATEMENT 

The ON GOSUB statement conditionally transfers control 
to one of n possible subroutines. The format of the ON 
GOSUB statement is shown in figure 6-4. 







In r 




ne 




The arithmetic 


expression 


with the value 






determines that 


point of transfer. 


,n 1-n 




Indicates line numbers. 





Figure 6-4. ON GOSUB Statement Format 

In figure 6-4, the expression ne is evaluated and rounded to 
an integer value; control transfers to ln^ when ne is 1, to 
ln2 when ne is 2, and so on. The line number of the ON 



GOSUB statement is recorded on the GOSUB stack (see 
GOSUB STATEMENT) so that RETURN statement can 
subsequently return control to the statement following the 
ON GOSUB statement. If the value of the expression ne is 
negative or zero, or greater than the number of specified 
line numbers in the ON GOSUB statement, program 
execution terminates, displaying the diagnostic ON 
EXPRESSION OUT OF RANGE. 

Figure 6-5 illustrates the ON GOSUB statement. In the 
example, when the expression x-y equals 1 or 3, control 
transfers to line 200. When x-y equals 2, control transfers 
to line 250, and when x-y equals 4, control transfers to 
line 300. 



RETURN STATEMENT 

The RETURN statement is usually the last statement of a 
BASIC subroutine; however, it can be used anywhere and 
any number of times within the subroutine; RETURN 
directs the program to resume execution at the statement 
immediately following the most recently executed GOSUB 
or ON GOSUB statement. Figure 6-6 shows the format of 
the RETURN statement. 

Each time a RETURN statement is executed, a line number 
is removed from the top of the GOSUB stack, and control 
is transferred to the next line following that line number. 
See GOSUB statement for a description of GOSUB stack. 
The diagnostic RETURN BEFORE GOSUB is issued if there 
is no return line number on the GOSUB stack (if there is no 
remaining GOSUB or ON GOSUB from which to return). 
For examples of the RETURN statement, see the GOSUB 
and ON GOSUB statements in this section. 



EXTERNAL SUBPROGRAMS 

Transfer of control to an external subprogram is 
accomplished through use of the CALL statement. The 
following describes the CALL statement format, and 
includes programming ideas for preparing external 
subprograms for use with a BASIC program. 
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90 
-100 



r- 200 



ON X-Y GOSUB 200, 250, 200, 300 — | 



240 RETURN -1 
250 



290 RETURN J 
300 



-340 RETURN - 1 



Integer value of 1 or 3 



Integer value of 2 



Integer value of 4 



Figure 6-5. ON GOSUB Statement Example 



RETURN 



Figure 6-6. RETURN Statement Format 



CALL STATEMENT 

The CALL statement permits you to execute a separately 
compiled subprogram in a non-BASIC language, such as 
FORTRAN. When the CALL statement is executed, 
parameters are evaluated and passed to the subprogram, 
then the subprogram is executed. When the subprogram 
finishes, control returns to the main program at the 
statement immediately following the CALL statement. 
Values are returned as new values of the parameters that 
are changed by the subprogram. The format of the CALL 
statement appears in figure 6-7. 



1, 


CALL subnm 


.. 


;: CALL subnm le^fiy- • ■ - - e 20' 




subnm Indicates subprogram nsn»» 




a Indicates *ny iiuwwc *- string 




K 'y>:r-'K' > expression. .. ;':. v ;i;?; 'y;' u : V; : ;■•-::":'';: yr.:;': ." 



Figure 6-7. CALL Statement Format 

As shown in figure 6-7, the CALL statement can contain 
parameters (up to 20 parameters are allowed). If 
parameters are specified with the CALL statement, the 
parameter values are passed to the subprogram in the order 
that the parameters are listed in the CALL statement. 
The following is an example of two CALL statements, one 
with parameters and the other without parameters: 



CALL SUBTEST(A,B,C,D) 
CALL A1234B 



The following rules apply to the CALL statement: 

• The subprogram name, subnm, can be 1 to 7 
characters. The first character must be alphabetic; 
any alphabetic characters used must be uppercase. 
The last character must not be a colon. Characters +, 
-, *, /, comma, circumflex, and blank cannot be used. 

• No more than 20 parameters can be passed to the 
subprogram. 

• The CALL statement can be executed only if the 
B option (relocatable binary code) is used when 
compiling the BASIC program. See BASIC Control 
Statement. If an attempt is made to execute a CALL 
in compile-to-memory mode (no B option), the 
diagnostic UNSATISFIED EXTERNAL REFERENCE is 
issued. The compiled program must be loaded, along 
with the subprogram that has been called, before the 
program can be executed. See the CYBER Loader 
reference manual. 

• The CALL statement cannot appear in a BASIC source 
program that is the target of a CHAIN statement. See 
description of CHAIN statement in this section for 
more information. 

• The CALL statement, without parameters, cannot be 
the object of THEN in the F .. .THEN .. .ELSE 
statement. 

• The CALL statement can be used to call subprograms 
written in any language that conforms to the 
FORTRAN calling sequence conventions. For an 
example of using the CALL statement to call a 
FORTRAN subprogram, see figure 6-8. 

Rules For Writing External Subprograms: 

• All numbers processed by BASIC are stored as 
normalized, single-precision, floating-point values. 
Therefore, all numeric values passed to external 
routines are in normalized, single-precision, 
floating-point form (FORTRAN type REAL), and all 
numeric values returned by external routines must be 
stored in the same form. 
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00100 OPTION BASE 1 

00110 DIN A(2,3) 

00120 FOR 1=1 TO 2 

00130 FOR J=1 TO 3 

00140 A(I,J)=I*J 

00150 NEXT J 

00160 NEXT I 

00165 PRINT "THESE ARE THE BASIC ELEMENTS 

00170 FOR 1=1 TO 2 

00185 PRINT A(I,1),A(I,2),ACI,3) 

00186 NEXT I 

00190 CALL FSUB (A(1,1))-» 



BASE 1 NEEDED SO BASE IS THE SAME AS FOR FORTRAN SUBPROGRAM 



00191 PRINT "THESE ARE THE BASIC ELEMENTS CHANGED WITH THE FORTRAN SUBPROGRAM 

00192 FOR 1=1 TO 2 

00194 PRINT A(I,1>,ACI,2),A(I,3) 

00195 NEXT I 
00210 STOP 
00220 END 



CALL to FORTRAN subprogram. 



C SUBROUTINE FSUB — 

C NOTE THAT ORDER OF SUBSCRIPTS MUST BE REVERSED FROM BASIC 

SUBROUTINE FSUB (A) 

DIMENSION A(3,2> 

DO 200 1=1,3 

DO 100 J=1,2 

A(I,J>=A(I,J>+10 
100 CONTINUE 
200 CONTINUE 

RETURN 

END 



FORTRAN subprogram. 



/x, basic, i=call2,l=0,b=lgo -*- 



.011 CP SECONDS COMPILATION TINE 
/ftn5,i=fsub,L=0,b=Lgo-*_ 



0.009 CP SECONDS COMPILATION TIME. 



/Lgo 

THESE ARE THE BASIC ELEMENTS 

1 2 3 

2 4 6 

THESE ARE THE BASIC ELEMENTS CHANGED WITH THE FORTRAN SUBPROGRAM 

11 12 13 

12 14 16 



Compile BASIC program. 

Compile FORTRAN subprogram. 

Execute BASIC main program 
and FORTRAN subprogram. 



Figure 6-8. BASIC Program CALL to FORTRAN Subprogram 



All strings processed by BASIC are stored as 6-bit. 
display code or 6- and 12-bit escape code characters 
packed into words with the first character being the 
leftmost character in the first word of the string. The 
6-bit display codes are used when BASIC is executing 
in normal mode; the 6- and 12-bit escape codes are 
used when BASIC is executing in ASCII mode. The 
string is always passed in the 6/12 character set on 
both NOS and NOS/BE. Strings passed to external 
programs are zero-byte delimited; the last word of the 
string contains zeros in the last 12 bits and in all other 
character positions not containing valid characters. 
The length in 6-bit characters is indicated in the 
parameter block. The length in characters can be 
obtained by scanning the string looking for the 
zero-byte delimiter or by passing the length as 
determined by BASIC'S LEN function. (The LEN 
function returns the count of logical, not physical, 
characters). In ASCII mode, two 6-bit characters 
sometimes constitute one logical escape code 
character. 



• External routines can change characters in a string, 
but they must not change the length of the string. 
BASIC maintains its own length indicator; therefore, 
externally shortening a string by moving the zero-byte 
delimiter is not noticed, but externally lengthening a 
string destroys adjacent data, just as storing a 
double-precision value over a single-precision value 
destroys adjacent data. To change the length of a 
string, pass an indicator back to BASIC and let BASIC 
change the length with a string assignment statement. 



External subprograms should not perform input or 
output operations on files used by BASIC. 



• Avoid the use of subprogram names that are identical 
to entry points in any of the BASIC execution on-time 
routines; the use of such names can cause 
unpredictable results and program termination. 
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• No provision is made for passing an entire array to an 
external subprogram. However, if the first element of 
a numeric array, such as A(0,0), is passed, its address 
can be interpreted as the address of the array because 
all elements of a numeric array are stored 
contiguously. This technique does not apply for string 
arrays because string array elements are not stored 
contiguously. 

• When passing BASIC numeric arrays to FORTRAN, 
provision must be made for the fact that BASIC 
normally begins array subscripting with element 
zero (0) and stores elements in row order (A(0,0), 
A(0,1), A(0,2), and so forth), while FORTRAN begins 
array subscripting with element 1 and stores elements 
in column order (A(l,l), A(2,l), A(3,l), and so forth). 
This difference causes the array to appear to be 
transposed each time it is passed between FORTRAN 
and BASIC. Note that in BASIC, OPTION BASE can be 
used to begin array subscription with 1 rather than 0. 

PROGRAM CHAINING 

The CHAIN statement allows control to exit from a BASIC 
program by terminating the current program and initiating 
execution of another program. 

CHAIN STATEMENT 

The CHAIN statement terminates the current program and 
initiates execution of another program. The new program 
can be either a BASIC program in source form or a BASIC 
or non-BASIC program in precompiled binary form. In 
either case, it is retrieved from either a local or a 
permanent file. Figure 6-9 illustrates the formats for the 
CHAIN statement. 



!. 


CHAIN 


se ; : :'' < > '>" ; ',. 


,-. 


CHAIN #ne 




se 


Indicates string expression; the name 
of the chained -to file; optionally 
includes permanent file and mode 
(ASCII/normal) information. 




ne 


Numeric expression; file ordinal of 

the Chamed~tO f|le. 



Figure 6-9. CHAIN Statement Format 

When the file ordinal format is used, no options can be 
specified. Chaining is done to the local file specified by 
the file ordinal, and, if the file contains a BASIC source 
program, the compiler is invoked with the same mode 
(ASCII or normal) as the chaining program. If the file is 
binary, the mode is determined by the binary program 
itself. A file ordinal expressed as a numeric expression is 
evaluated and rounded to an integer value. 

When the string expression format is used, a filename must 
be specified and, optionally, a permanent file user number 
(ID) and/or password must be specified. Also, a mode 
indicator (ASCII or normal) can be specified. The optional 
values can be specified positionally or with keywords, as 
shown in figure 6-10. 



file,user,pswd,mode 

or 

file,UN=user,PW=pswd,MODE=mode 

or 

files,! D=user,PW=pswd,MODE=mode 

file Required file name, 1-7 characters 

beginning with a letter. 

user Indicates optional user number (ID) for 

permanent file access, 1-7 characters. 

pswd Indicates optional password for permanent 

file access, 1-7 characters. 

mode Optional mode, must be ASCI I or NORMAL 

or leftmost substrings of these such as 
A,AS,ASC. 



Figure 6-10. Keywords for Optional Values 



Letters used in file names and optional values must be 
uppercase. When keywords are used, they can be specified 
in any order. Missing positional parameters must be 
indicated by commas. For example: 

file, , ,mode 

Keyword and positional parameters can be mixed, but any 
keywords must follow all positional values. For example: 

file,user,MODE=NORM 



CHAIN PROCESSING 

Execution of the CHAIN statement proceeds in the 
following manner: for the string expression format, the 
string is decoded into parameters. The diagnostic 
ILLEGAL CHAIN PARAMETER is issued for such errors as 
an illegal file name, a file that is already assigned or 
connected to the terminal, and/or an incorrect mode value, 
such as ASKI. If the mode is not specified, the mode of the 
current chaining program is used. If the user number is not 
specified, the current user number (user name) is used 
under NOS, and the ID of PUBLIC is used under NOS/BE. 
For the file ordinal format, no parameters need be 
decoded. If a local file of the specified name exists, it is 
used. If one does not exist, access is attempted for NOS 
with GET or ATTACH (if GET is unsuccessful), and for 
NOS/BE with ATTACH. In both systems, attached files are 
attached with read-only permission. If the named file 
cannot be obtained, the diagnostic CHAIN FILE NOT 
FOUND is issued. 



When the file has been found, all files in the current 
(chaining) program are closed as if STOP or END had been 
executed. The file containing the current program is 
returned, unless it is named INPUT or is the file being 
chained to, and the chained-to file is rewound. Also, for 
NOS in interactive mode, the new file is made the primary 
file, if possible (if it is not a direct access permanent file). 
Under NOS/BE and NOS batch mode, the new file is not 
treated in a special manner. 
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The new file is examined to determine if it contains source 
or binary data and the BASIC compiler or the CYBER 
Loader is called as appropriate. The file is rewound before 
and after this check. Both the compiler and the loader 
destroy the current program so that no return is possible. 

Restrictions: 

• DATA, or the values of variables and arrays, cannot be 
passed between programs. All information must be on 
files. 

• The chained-to program cannot contain CALL 
statements if the chained-to program is in source 
form. However, CALL statements are permitted in 
precompiled binary programs. When the program is in 
source form, the BASIC compiler is called to, compile 
and execute the program in one step without using the 
loader; therefore, any called subroutine is not 
available. 



The chained-to file cannot be connected or assigned to 
the terminal. 



If the BASIC compiler to be used resides in a local file 
rather than in the system library, the filename must 
be BASIC. 



Figure 6-11 shows how the CHAIN statement can be used 
in a control program to determine which of a given number 
of computer game programs to execute. Each game 
program exists as a separate file with a user number (for 
NOS) or an ID LIBRARY (for NOS/BE). The game and the 
control program can CHAIN back to the control program 
when it finishes, if the last executed statement is as 
follows: 



510 CHAIN "CONTROL,LIBRARY" 



100 


PfUNl "thlth NAKL Of 1HL CAfct" 


1 10 


INi-Ul AS 


lfcO 


If £S. = "PCi\LK" UHO 170 


130 


IF A4 = "KO0LiriL" OilC 1*0 


1*0 


11- Ai="£lAklKi.K" GL-lkl £10 


ISO 


HUM "I LC.Ni'i HAvt. THAI LAfoL* It 


160 


oeio no 


170 


HKINl "CALLING hOKLh" 


180 


CHAIN •■HiKth.LIbKAf.V 


190 


hhlNI "CALL INC. F.CULtnE" 


fOO 


CHAIN ■•fcOULLn^LIbhAhV 


210 


f-JkIM "CALLING SlAKlkLK" 


?£o 


CHAIN "flAKlKK*LIbKAhY" 


£30 


LNL 



AGAIN" 



Figure 6-11. CHAIN Processing Example 
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I/O STATEMENTS AND FUNCTIONS 



This section explains file usage in BASIC and describes the 
statements and functions related to input and output. 
Included are the statements and functions to input and 
print display format; read and write binary data; construct 
and read internal data tables; aid random access; 
manipulate files; and produce special output formats. 
Table 7-1 summarizes the input and output statements. 



BASIC FILES AND FILE I/O STATEMENTS 

Data can be contained within the BASIC program internally 
in a data block or externally in a file. A file is a named 
collection of data that a BASIC program can reference and 
manipulate. A logical file name (lfn) consists of 1 to 7 
alphanumeric characters. The first character must always 



TABLE 7-1. I/O STATEMENTS AND FUNCTIONS 



Statement 



Effect 



Usage 



FILE 

CLOSE 
RESTORE 

NOD ATA 

IF END 
IF MORE 

APPEND 
WRITE 
READ 
SET 

LOC(ne) 
LOF(ne) 
INPUT 

DELIMIT 
PRINT 

TAB 

PRINT USING 

Image Format 

MARGIN 

SETDIGITS 

DATA 



Associates a binary or display format file to a file ordinal. 



Disassociates a binary or display format file from a program. 

Resets data table pointer to the first data value, or restores 
file pointer to the beginning of the file. 

Branches to specified line number on end-of-data (internal data 
table) or on end-of-file (binary or display format file). 

Branches to specified line number on end-of-file. 

Branches to specified line number when no end-of-file is 
indicated. 

Appends data to the end of a binary or display format file. 

Writes a contiguous block of data to a binary file. 

Reads data from a binary file or from an internal data table. 

Points to a specific location within a binary file so that the 
next READ or WRITE statement can reference the desired word. 

Returns the current mr4 position of binary file ne. 

Returns the length in words of binary file ne. 

Reads data from a display format file or from the terminal during 
program execution. 

Specifies the characters to be used as input item separators. 

Prints data in display format (as specified in the PRINT line) in 
a file or at a terminal. 

Causes the print mechanism to tab to a specified column. 

Prints data in a file or at a terminal as specified in an image 
statement or in a string expression. 

Establishes output format for the PRINT USING statement. 

Defines the right-hand margin for printed output. 

Specifies the number of significant digits to be output by subse- 
quent PRIST statements. 

Creates a table of data values internal to a program. 



FILE #1 = "TXT1" 
#2 = "TXT2" 

CLOSE #1 

RESTORE 

NODATA 150 

IF END #2 GOTO 50 
IF MORE #2 GOTO 100 

APPEND #2 
WRITE #1,A,B,C 
READ #1,A,B,C 
SET #1,N1 

L0C(2001) 
L0F(200) 
INPUT X,Y 

DELIMIT #1, (;) 
PRINT "VALUE", Y 

TAB(5) 

PRINT USING 80, A 
PRINT 3 USING "SET", A 

:TliE T0VAL 15 ##.# . 

MARGIN 136 

SETDIGITS 5 

DATA "A", 1,2,3 
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be a letter. Any letters that are used must be uppercase. 
Files used with BASIC are normally located on mass 
storage; exceptions are those files connected or assigned to 
the terminal. Terminal files accept and display data 
directly at a terminal. Direct access to tape files is not 
supported. 



Files named INPUT and OUTPUT have special meaning in a 
BASIC program. In interactive mode, if these files are 
connected or assigned to the terminal, data written on file 
OUTPUT is automatically printed at the terminal, and data 
read from file INPUT must be entered at the terminal. 
Files INPUT and OUTPUT are said to be connected to the 
terminal. In batch mode, data written on file OUTPUT is 
automatically printed at the end of the job and data read 
from INPUT must be included in the file that contains job 
control statements. 



BASIC programs can read and write files in two formats: 
binary format (a file created by WRITE) and display format 
(files created by PRINT or an external method). It is more 
efficient and more accurate to manipulate data in binary 
format because no translation is needed before processing, 
but it is sometimes inconvenient to use binary data because 
it cannot be printed at the terminal or printer. 
Conversely, it is less efficient and sometimes less accurate 
to manipulate data in display format because translation 
into binary is necessary before the data can be used by 
BASIC, but it is usually more convenient to use display 
format data because it can be printed at the terminal or 
printer. Thus, all data entered on cards or at the terminal, 
and all printed data, is formatted in display format. In 
general, binary data files are written only if the data is to 
be read later by a BASIC program and a printed copy is not 
needed. 



RLE ACCESS METHODS 

BASIC offers both a sequential and random access method 
of reading and writing files. Sequential access sometimes 
involves a systematic search throughout the file from 
beginning to end until the desired information is found. 
Random access allows immediate location of the 
information (direct retrieval). Random access, for 
example, can be used to advantage on a file with students' 
grades, provided the grades are ordered in student number 
order. In this case, the student number indicates the 
relative position of the student's record within the file; for 
example, student number 12645 would indicate that the 
student record occupied the 2645th position in the file 
(assuming that student numbering begins at 10001). If the 
student number associated with the desired record is 
known, retrieval of this student's grade can be almost 
instantaneous by using random access techniques. Display 
format files can only be accessed sequentially, however, 
both access methods apply to binary format files. 
Table 7-2 summarizes the differences between these two 
access methods. 



The BASIC statements described in this section are used 
for binary input and output, display input and output, and 
input and output for internal data tables. Some of the 
statements, such as RESTORE, apply to all of these 
categories; while others, such as INPUT and PRINT, apply 
to only one category. Table 7-3 identifies each I/O 
statement that is applicable to each category. The 
statements listed in this table are grouped according to 
their respective functions. 



TABLE 7-2. SEQUENTIAL ACCESS VERSUS RANDOM ACCESS 



Sequential 
Access Method 


Random Access Method 


Can be used with dis- 
play and binary format 
files. 

Data must be processed 
cessed sequentially 
from beginning to end 
or until the desired 
information is found. 

File can be created 
with WRITE or PRINT 
statement, and the READ 
or INPUT statement is 
used to systematically 
examine each data item 
until the desired in- 
formation is found. 

File must be either in 
READ or WRITE mode and 
must be rewound before 
the other can be used. 


Can be used with binary 
format files only. 

Data need not be pro- 
cessed sequentially. 
File can be positioned to 
any word in the file. 

File must be created se- 
quentially with the WRITE 
statement and read with 
the READ statement. The 
SET statement and two 
functions, LOC and LOF, 
supply the data to per- 
mit positioning directly 
to the desired word 
location and retrieve or 
write the word stored at 
that location. 

READ and WRITE operations 
can be intermixed without 
an intervening RESTORE 
statement. 



PERMANENT FILE ACCESS 

BASIC processes local (temporary) files. A local file can 
be one of the following: 

• A permanent file made local with the ATTACH 
command 

• A file created by the user or by an executing program 
during the job terminal session 

• A copy of a permanent file 

An attached permanent file is a permanent file that has 
been made directly accessible to the BASIC program. If 
changes are made to an attached direct access file, those 
changes are permanent. An indirectly accessed permanent 
file is a copy of a permanent file. If the job or terminal 
session ends before the modified copy is saved, all changes 
made during the file are lost. Similarly, if a file created 
by the user or by an executing BASIC program is not 
explicitly made permanent with operating system 
commands before the job or terminal session ends, the file 
is lost. Sections 10 and 11, and appendix D illustrate 
operating system commands to make temporary local files 
permanent, and permanent files local. Refer to the NOS or 
NOS/BE reference manual for a complete explanation. 



RLE STATEMENT 

The FILE statement is used to associate a number (the file 
ordinal) with a file name. All file I/O statements require 
the use of a file ordinal. Figure 7-1 shows the format for 
the FILE statement. In figure 7-1, the file named by If n is 
associated with the file ordinal specified by n. 
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TABLE 7-3. I/O STATEMENTS AND RELATED TYPE OF I/O 



^^ Type 

^s. of 

Type\"° 
of ^v. 
Statements \^^ 


Display I/O 


Binary I/O 


I/O for 
Internal Data Tables 


Sequential 
Access 


Sequential 
Access 


Random 
Access 


Sequential 
Access 


File Access 
and CLOSE 
statement 

Input 
Output 

File 
Control 


FILE 
CLOSE 

INPUT 
DELIMIT 

PRINT 

PRINT USING 
Image 

MARGIN 
SETDIGITS 

RESTORE 
NO DATA 
IF END 
IF MORE 
APPEND 


FILE 
CLOSE 

READ 

WRITE 

RESTORE 
NODATA 
IF END 
IF MORE 
APPEND 


FILE 
CLOSE 

READ 

WRITE 

SET 

RESTORE 
NODATA 
IF END 
IF MORE 
APPEND 


READ 
DATA 

RESTORE 
NODATA 



FILE #n 1 = lfn v #n 2 = lfn 2 . 



#n 



m 



! (fn_ 



'■>•-■„ 



Ifn 



l-m 



Indicates the file ordinal; any numeric constant, 
variable or expression with a value between 1 
and 218 -1. 

Indicates the file name (a string constant or 
variable with seven or fewer alphanumeric 
characters), the first character must be a 
letter and the alphabetic characters used must 

toa appercasa; string ax|»r»»if>f«s csn aiso b« 
used for the file name. 



file name). In example 2, files OLDM and NEWM are 
assigned ordinals, 1 and 11, respectively. In example 3, a 
file (name determined during execution of the program) is 
assigned ordinal 48. In example 4, both file name and 
ordinal are determined during execution. If the variable X 
is not an integer, it is rounded to an integer. 



Figure 7-1. FILE Statement Format 

All file buffers, one for each name or number pair declared 
in all FILE statements, are allocated as the program is 
compiled. A maximum of 13 such buffers are allowed. 
Names and numbers are associated with each other and 
assigned to an available file buffer when a FILE statement 
is executed. Names and numbers must be unique, not 
currently in use, and buffer space must be available, or a 
fatal error results. Therefore, a FILE statement can be 
executed only once, unless the file names and numbers that 
the FILE statement uses are different for each execution, 
and unless unassigned buffers are available, and the names, 
numbers, and buffers that the FILE statement uses are 
first released by using a CLOSE statement. 

When the FILE statement references a previously 
non-existing file name, an empty file is created; data can 
later be added to the empty file by using statements like 
PRINT, WRITE, and APPEND. When the FILE statement 
references a previously existing file (local), the FILE 
statement does not position the file. Therefore, if unsure 
of the present position of the file, RESTORE the file 
before using it. 

In example 1 of figure 7-2, the ordinal 99 is assigned to 
the file OUTPUT, so that all data placed on file 99 is 
printed on the terminal or the printer (OUTPUT is a special 



1. 


110 FILE #99 = "OUTPUT" 




2. 


10 FILE #1 = "OLDM", #11 = 


= "NEWM" 


3. 


50 FILE #48 = A$ 




4. 


100 FILE #X = A$ 





Figure 7-2. FILE Statement Examples 

File ordinal zero has a special reserved meaning. Although 
using it in the FILE statement has no effect, it refers to 
the default input file in input-related statements and to 
the default output file in output-related statements. (See 
section 12, Batch Operations, J and K parameters.) These 
files are connected to the terminal when running 
interactively; for example, ordinal zero refers to the 
terminal when it is running interactively. 



CLOSE STATEMENT 

The CLOSE statement is used to disassociate a file from 
the BASIC program. The associated ordinal and file buffer 
space become free for reassignment to another file by 
executing another FILE statement. The file is retained as 
a local file, and can be referenced again foUowing an 
appropriate FILE statement. Explicitly stating the CLOSE 
statement rewinds the disassociated file (positions the file 
at the beginning). Figure 7-3 illustrates the format for the 
CLOSE statement. 
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7-3 



CLOSE #ne 



Indicates file ordinal expressed as a numeric 
constant, variable, or expression. 



Figure 7-3. CLOSE Statement Format 

In figure 7-4, the first statement makes file DTFIL1 
available as file ordinal 1. The second statement detaches 
DTFIL1 from the BASIC program and frees file ordinal 1. 
The third statement makes DTFIL2 available as file 
ordinal 1. The fourth line makes file DTFIL1 available 
once more, this time to be referenced by file ordinal 2. 
The fifth and sixth statements detach DTFIL1 and DTFIL2, 
respectively, from the BASIC program, and free their 
associated file ordinals and buffers. 



100 


FILE 


#1="DTFIL1" 


no 


CL0SE 


#1 




120 


FILE 


#1="DTFIL2" 


130 


FILE 


#2="DTFIL1" 


140 


CL0SE 


#1 




150 


CL0SE 


#2 




160 


END 







Figure 7-4. CLOSE Statement Example 

RLE CONTROL STATEMENTS 

The file control statements RESTORE, NODATA, F END, 
F MORE, and APPEND are used to manipulate files and 
internal data tables in various ways. For example, these 
file control statements can be used to check the position of 
the file pointer (NODATA, F END, and F MORE) and to 
move the file pointer to the beginning of a file (RESTORE) 
and to the end of an existing file (APPEND). 

All of the file control statements can be used with binary 
and display format files; the RESTORE and NODATA 
statements can also be used with internal data tables 
created by the DATA statement. 



RESTORE STATEMENT 

A file or internal data table has a pointer associated with 
it that indicates the position of the file or table. For an 
input file, as the file is being read, the painter moves 
ahead, indicating the next item of data to read. For an 
output file, the pointer is always at the end of the file, 
indicating where the next data item is to be written. The 
RESTORE statement positions this pointer to the beginning 
of the file or internal data table. A file is not 
automatically rewound at the end of program execution. A 
file can be rewound with a RESTORE or CLOSE 
statement. Once a file has been restored, it can be written 
into or read. The file can be in either binary or display 
format. Be careful not to write over any data that is to be 
saved. Figure 7-5 shows the formats for the RESTORE 
statement. 

In figure 7-5, if format 1 of the RESTORE statement is 
used, the statement refers to an internal data block 
created by the DATA statement. If format 2 is used, the 
numeric expression ne must evaluate to an existing file 
ordinal; for example, the number associated with the file 
name through the FILE statement. The expression ne is 
rounded to an integer. An example of the RESTORE 
statement is shown in figure 7-6. 



1. RESTORE 

2. RESTORE #ne 
ne 



Indicates numeric constant, variable, or 
expression. 



Figure 7-5. RESTORE Statement Format 



10 


DATA 1,2,3 


20 


READ A,B,C 


30 


RESTORE 


40 


READ D 


50 


PRINT A;B;C;D 


60 


END 


produces: 




1 


2 3 1 



Figure 7-6. RESTORE Statement Example 

NODATA STATEMENT 

The NODATA statement can be used with files and internal 
data tables to test the location of the file position pointer. 
If the pointer is at the end-of-data, control branches to the 
statement of the line number specified in the NODATA 
statement. Thus, NODATA can be used to determine if all 
the data in a file or internal data table has been read. 
Figure 7-7 shows the format for the NODATA statement. 



1. NODATA In 

2. NODATA #ne. In 

'•■ :•.■■■•■; ites ine r- iml fir 

ne 



Indicates file ordinal expressed as a numeric 
constant, variable, or expression. 



Figure 7-7. NODATA Statement Format 

In figure 7-7, if format 1 is used, the NODATA statement 
refers to an internal data block created by the DATA 
statement. If format 2 is used, the NODATA statement 
refers to a binary or display format file with the ordinal 
that matches the ordinal specified as ne. The ordinal ne is 
rounded to an integer. 

Files that have just been sequentially written have no data 
available for reading. Thus, when NODATA references a 
file that has just been sequentially written (and not yet 
repositioned with RESTORE), an end-of-file condition is 
indicated, and control immediately transfers to the 
statement at line number In. Conversely, when NODATA 
references an internal data table that contains at least one 
item and has not yet been read, transfer of control is not 
executed. 

The NODATA statement is typically used for 
end-of-information processing, as in figure 7-8. The first 
NODATA statement in line 110 detects an end-of- 
information on the internal data block and directs control 
to statement 150, where a message is printed. Note that 
since file #1 has just been written on the first time 
through, the NODATA statement in line 160 detects an 
end-of-information condition on file #1. 



| 7-4 



19983900 G 



90 FILE *1="N0DAT1" 


100 


DATA 1,2,3,4 


110 


NODATA 150 


120 


READ A 


130 


PRINT A 


135 


WRITE #1,A 


140 


6OT0 110 


150 


PRINT "END OF DATA BLOCK" 


160 


NODATA #1 ,180 


170 


STOP 


180 


PRINT "END OF FILE #1" 


190 


END 


produces: 




1 
2 




3 




4 




END 


OF DATA BLOCK 


END 


OF FILE #1 



Figure 7-8. End-of-lnformation Processing 

IF END STATEMENT 

The IF END statement is logically equivalent to the 
NODATA statement, except IF END cannot refer to the 
internal data block created by DATA statements. The 
numeric expression ne in figure 7-9, is evaluated and 
rounded to an integer. The status of the file that has this 
integer as its file ordinal is then interrogated in a manner 
similar to that of the NODATA statement. Control is 
transferred to the statement line number In if the pointer 
is found to be at the end of data. Do not use the second 
format because it might not be supported in future versions 
of BASIC. See Future System Migration Guidelines, 
appendix E. The IF END statement is customarily used for 
end-of-information processing, as illustrated in figure 7-10. 



1. 


if ESC #ne mm In 


2. 


IF END #ne GOTO In * 




ne Indicates file ordinal expressed as a 




numeric constant, variable, or expression. 




In Indicates Vs.-.- number. 



Figure 7-9. IF END Statement Format 



IF MORE STATEMENT 

The F MORE statement is the logical converse of the 
NODATA statement and the F END statement. Similar to 
the IF END statement, the IF MORE statement cannot 
refer to the internal data block. The arithmetic 
expression ne is evaluated and rounded to an integer. The 
status of the file that has the integer as its file ordinal is 
interrogated. Control is transferred to the statement with 
the line number specified in In, only if the pointer is found 
not to be at the end of data; for example, if there is data 
available for reading. Figure 7-11 illustrates the format 
for the F MORE statement. Do not use the second format 
because it might not be supported in future versions of 
BASIC. See Future System Migration Guidelines, 
appendix E. 



100 


FILE #1=" 


IFEND" 




110 


IF END #1 


G0T0 


160 


120 


INPUT 


#1. 


A 




130 


PRINT 


,A 






140 


S=S*A 








150 


G0T0 1 10 






160 


PRINT 


» 


"•—•»■• 




170 


PRINT 






"T0TAL: u ,S 


180 


END 








produces: 






10 
10 
20 
20 
30 
30 
40 
40 




T0TAL 




200 





Figure 7-10. IF END Statement Example 



i 


IF MORE #ne THEN In 


'. 2.' 


IF MORE #ne GOTO In 




ne Indicates file ordinal expressed as a numeric 




constant, variable, or expression. 




": In :'v .;.■ Indicates line number. : //X •'• ' .■ '.>'■; ;i>^',.' 



Figure 7-11. IF MORE Statement Format 



Figure 7-12 duplicates the example given for the F END 
statement; however, it uses the F MORE statement to 
allow for end-of-information processing. Note that .using 
F MORE allows the program to be shortened by one line. 



100 


FILE #1= 


"IFEND" 




120 


INPUT #1 


>A 






130 


S=S+A 








140 


PRINT 


,A 






150 


IF M0RE 


#1 


G0T0 


120 


160 


PRINT 


,"• 


. — _M 




170 


PRINT 






"T0TALs"*S 


180 


END 








produces: 






10 
10 
20 
20 
30 
30 
40 
40 




T0TAL 




200 





Figure 7-12. IF MORE Statement Example 
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APPEND STATEMENT 

The APPEND statement adds data to the end of an existing 
binary or display format file (APPEND cannot be used with 
internal data tables created with the DATA statement). 
The format for the APPEND statement appears in 
figure 7-13. 



APPEND #ne 



Indicates file ordinal expressed as a numeric 
constant, variable, or expression. 



Figure 7-13. APPEND Statement Format 

Executing an APPEND statement causes the file pointer 
associated with the file ordinal specified as ne to be 
positioned after the last data item on the file. The 
expression ne is rounded to an integer. The file mode 
(binary or display) is set depending on the mode of the last 
input or output operation for the file. If there is no 
preceding input or output operation or if the last operation 
was a RESTORE, the mode is determined by the next 
output operation on the file. After APPEND, an output 
operation on the file, such as WRITE or PRINT, causes the 
information to be added to the file. Once the file has been 
positioned, any amount of data can be written. It is not 
necessary to execute an APPEND before each output 
statement. Any attempt to INPUT or READ from a file 
after an APPEND for that file and without an intervening 
RESTORE or SET causes the execution time diagnostic 
ILLEGAL INPUT ON FILE. 

Figure 7-14 shows one method of adding information to the 
end of a file. In this case, the file used is a file of student 
grades. The first example program attempts to read 
through the file, and write at the end. An execution 
diagnostic results as shown. The second program has an 
APPEND statement inserted before the WRITE statement. 
This positions the pointer after the end of data and allows 
additions to be made. The program then repositions, reads, 
and prints the contents of the file showing that the new 
value was added to the end. 



BINARY I/O STATEMENTS 
AND FUNCTIONS 

The following paragraphs describe the BASIC statements 
and functions used to read and write binary format files. 
The binary I/O statements are WRITE for creating binary 
files; READ for reading binary files; and SET for painting 
to a specific word location within a binary file so the next 
READ or WRITE statement can reference the desired 
word. The binary I/O functions are LOC and LOF. LOC 
and LOF functions aid in the random access procedure and 
are described in the following text. 

As stated at the beginning of this section, binary files 
cannot be directly connected to the terminal or output on a 
printer. Binary files must be disk files and can be 
referenced by using either the sequential or random access 
method. The READ and WRITE statements apply to both 
methods of accessing binary data, and the SET statement 
applies only when you want to randomly acccess binary 
data. Two BASIC built-in functions, LOC and LOF, aid in 
the random access procedure. 



100 FILE #1="CREATED" 

110 READ #1,A 

120 IF MORE #1 THEN 110 

130 A=99 

140 WRITE #1 ,A 

150 END 

produces: 

ILLEGAL OUTPUT ON FILE 
BASIC EXECUTION ERROR 

Corrected example: 

FILE #1="CREATED" 



AT 140 



100 
110 
120 
130 
140 
150 
160 
170 
180 



APPEND #1 
A=99 

WRITE #1,A 
RESTORE #1 
READ #1,A 
PRINT A; 
IF MORE #1 
END 



THEN 150 



produces: 

96 97 



98 99 



Figure 7-14. APPEND Statement Example 



WRITE STATEMENT 

The WRITE statement is used to write a contiguous block of 
data to a binary file. The data is written into the file 
starting at the current position of the file pointer. No 
delimiters or end-of-line characters are written. 
Figure 7-15 shows the format for the WRITE statement. 



WRITE 


■■-..■■ ' ■ 


e n 






ne 


Indicates file ordinal 
constant, variable, or 


expressed as a 

■ .■.-•■■*■■ : i 


numeric 


~ 


Indicates 
(numeric 


expression. 


variable, -s. r constant 



Figure 7-15. WRITE Statement Format 

When the WRITE statement is executed, the binary value of 
the expressions (e in figure 7-15) is written on the file 
indicated by the ordinal (ne in figure 7-15). The ordinal ne 
is rounded to an integer. 

Files written by a WRITE statement can be read only by a 
READ statement in the same program or in another BASIC 
program. Note that for sequential access files, a simple 
WRITE operation causes the file pointer to be positioned at 
the current end-of-file; any attempt to READ from the file 
without an intervening RESTORE or set causes an 
execution time diagnostic ILLEGAL INPUT ON FILE. 
Figure 7-16 illustrates use of the WRITE statement. The 
binary values of 1 and 10 are written on file #1. The file is 
restored and the data is read, then it is printed. 
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O01OO 


FILE #1="0LDM" 


00110 


LET A=1 


O012O 


LET B=10 


00130 


WRITE #1,A,B 


00140 


RESTORE «1 


00150 


READ #1 ,D,E 


00160 


PRINT D,E 


00170 


END 


produces: 




1 


10 



Figure 7-16. WRITE Statement Example 



issued. Check for an end-of-file condition by using the IF 
END, F MORE, or NODATA statement. (See File Control 
Statements in this section.) 

Output files that have been sequentially written must be 
restored (via the RESTORE or the SET statements) to be 
read; otherwise, the execution time diagnostic ILLEGAL 
INPUT ON FILE is issued. (The RESTORE statement is 
described previously in this section under File Control 
Statements.) 

Figure 7-18 illustrates the READ statement. The program 
creates a file named MYFILE, then writes a series of 
values to the file (one string value followed by 20 integer 
values). The program then reads the file information 
previously created, and displays the file contents at the 
terminal. 



READ STATEMENT 

Binary files created by the WRITE statement are read by 
the READ statement. Figure 7-17 shows the format for 
the READ statement. See I/O For Internal Data Blocks for 
alternate formats of the READ statement for reading 
internal data tables created by the DATA statement. 



RFAD 


* ne ."1>2 v n 








no 


Indicates file ordinal 


expressed as a 


numeric 




constant, variable or 


expression. 






- 


Indicates variable identifier (numeric 


or 


string}. 



Figure 7-17. READ Statement Format 

In figure 7-17, binary data from the file with ordinal ne is 
read and assigned to each of the variables 
v l> v 2> • • • > v n> respectively. The ordinal ne is 
rounded to an integer. Numeric data items should be 
assigned to numeric variables and string data items should 
be assigned to string variables; otherwise, unpredictable 
results can occur (no diagnostic is issued). 

As each binary data item is read from the file and assigned 
to a variable in the READ statement list, the file pointer is 
advanced to the next data item. If an executing READ 
statement attempts to read beyond the end-of-file, the 
execution time diagnostic END OF DATA ON FILE is 



SET STATEMENT 

The SET statement positions a file so that the next READ 
or WRITE statement executed on that file references the 
desired word. Figure 7-19 shows the format of the SET 
statement. When the SET statement is executed, ne\ and 
ne2 are evaluated and rounded to an integer, then the 
file associated with the ordinal nej is positioned at the 
word ne2. The user is responsible for computing the file 
position to be set and should remember the following: 

• Numeric variables occupy just one word each on a 
binary file. 

• String variables occupy n+1 words, where n is the 
integral of the (number of 6-bit characters in the 
string in 6-bit characters +9)/10; for example, a string 
variable of length 34 6-bit characters occupies 
INT(34+9)/10)+l=5 words. The 12-bit escape code 
ASCII characters count as two 6-bit characters. 

If the logical blocks of information on the file to be 
referenced in random mode are all fixed length, the 
starting word position of any particular block can be 
readily computed. The starting word position of the nth 
block is ((n-1)* block length + 1). However, if variable 
length logical blocks are used, it is necessary to produce a 
table of relative logical block addresses when the file is 
being created and to record this table in some fixed area, 
such as the start of the file or in a separate file, if the 
table size is large and variable. 



00100 FILE #1="MYFILE" 

00110 RESTORE #1 'ENSURES FILE IS AT BEGINNING 

00120 A$="WRITE A FILE OF SEQUENTIAL NUMBERS FROM 1 TO 20" 

00130 WRITE #1,A$ 

00140 FOR 1=1 TO 20 

00150 WRITE #1,1 

00160 NEXT I 

00170 RESTORE #1 

00180 READ #1,A$ 'READS THE STRING 

00190 PRINT A$ 

00200 IF END #1 THEN 00999 

00210 READ #1 ,A 

00220 PRINT A; 

00230 IF MORE #1 THEN 00210 

00999 END 

produces: 

WRITE A FILE OF SEQUENTIAL NUMBERS FROM 1 TO 20 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 



Figure 7-18. READ Statement Example 
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#1^ 



-■;- 



Indicates numeric constant, variable, or 
expression that evaluates to a fife ordinal 
associated with a file name. 

Indicates numeric constant, variable, or 
> xpressioi 



LOCfn< 



Indicates file ordinal expressed as a numeric 
constant, variable or expression. 



Figure 7-19. SET Statement Format 

In addition to the SET statement, BASIC provides the LOC 
and LOF functions to help position directly to the desired 
word location so the word stored at that location can be 
retrieved or written. Any attempt to position to a word 
location beyond the end of the file results in a diagnostic 
message RANDOM ACTION BEYOND EOF. The LOC 
function returns the current word position on the file 
where the next READ or WRITE operation is to start, and 
the LOF function returns the length of the specified binary 
file. The first word in the file is word 1. 

Figure 7-20 shows how the SET statement can be used to 
randomly access a binary file containing 12 student grades 
organized in student number order (file STUDENT not 
shown). The student number indicates the relative position 
of the student's grade record within the file, and the 
student numbers range from 10001 to 10012. For example, 
student number 10001 indicates that the corresponding 
student grade record occupies the first position in the file, 
and student number 10012 indicates that its student grade 
record occupies the twelfth position in the file. The 
program prompts for a student number; once the number is 
entered, the corresponding student grade is displayed at 
the terminal. 



LOC FUNCTION 

The LOC function returns the current word position of a 
binary file. That is, LOC returns the position at which the 
next READ or WRITE operation on the file is to begin. The 
format for the LOC function appears in figure 7-21. 



Figure 7-21. LOC Function Format 

The value returned by LOC is updated after each item is 
read or written by the READ or WRITE statement. The 
value is incremented by 1 for numeric values and by n for 
string variables, where n is a function of the length of the 
string. See discussion under SET statement. If RESTORE 
is used on the file, LOC yields the value of 1. The LOC 
function can also be used with the LOF function to detect 
an end-of-file condition. 



LOF FUNCTION 

The LOF function returns the length in words of a binary 
file. Figure 7-22 shows the format for the LOF function. 



LOF(ne) 



Indicates file ordinal expressed as a numeric 
constant, variable, or expression. 



Figure 7-22. LOF Function Format 

When the value returned by the LOC function equals the 
value returned by the LOF function, the file is positioned 
at the last word in the file. When LOC=LOF+l, all data has 
been used, and an end-of-file condition is indicated. An 
example of both the LOC and LOF function is shown in 
figure 7-23. 

DISPLAY FORMAT I/O 
STATEMENTS AND FUNCTIONS 

The statements INPUT, DELIMIT, PRINT, PRINT USING, 
image, MARGIN, and SETDIGITS are used for display 



100 FILE #1="STUDENT" 

110 PRINT "ENTER A STUDENT NUMBER" 

115 PRINT "ENTER 999 TO TERMINATE THE JOB" 

120 INPUT N 

125 IF N=999 THEN 999 

130 LET N1=N-10000 

140 SET #1,N1 

150 READ #1,61 

160 PRINT "STUDENT NUMBER ";N," GRADE ";G1 

170 GOTO 120 

999 END 



produces: 



ENTER A STUDENT NUMBER 

ENTER 999 TO TERMINATE THE JOB 

? 10001 

STUDENT NUMBER 10001 

? 10002 

STUDENT NUMBER 10002 

? 10003 

STUDENT NUMBER 10003 

? 999 



GRADE 95 
GRADE 89 
GRADE 80 



Figure 7-20. SET Statement Example 
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format I/O. The INPUT statement is used to read display 
format input. The various forms of the PRINT statement, 
and the MARGIN and SETDIGITS statements, are used to 
create display format output and to control the output 
format. 



Each time an INPUT statement is executed, a question 
mark is displayed at the current print position of the 
terminal line. Enter data to satisfy the input request; the 
data entered must correspond one-for-one with the 
variables in the INPUT statement. 



100 FILE #1="STUDENT" 

105 RESTORE #1 

110 LET M=10000 

120 READ #1,G 

130 LET M=M+1 

140 PRINT M,G 

150 IF MORE #1 THEN 120 

200 RESTORE #1 

210 LET S=0 

220 READ #1,G1 

230 IF L0C(1) = L0FU )+1 THEN 260 

240 LET S=S+G1 

250 GOTO 220 

260 LET A=S/L0F(1 ) 

270 PRINT "CLASS AVERAGE ";A 

300 END 



produces: 



10001 


95 


10002 


89 


10003 


80 


10004 


84 


10005 


94 


10006 


78 


10007 


88 


10008 


68 


10009 


96 


10010 


79 


10011 


92 


10012 


90 



CLASS AVERAGE 78.5833 



Figure 7-23. Example of LOC and LOF Functions 



INPUT STATEMENT 

The INPUT statement permits display format data to be 
read from a file or from the terminal during program 
execution. The two forms of the INPUT statement are 
shown in figure 7-24. 



1. 


INPUT v v v 2 , . . . v n 


; 


INPUT #ne, v v v 2 , . . . v n 




v-j - v n Indicates string or numeric variables. 




ne Indicates file ordinal expressed as a 

numeric constant, variable, or expression. 



Figure 7-24. INPUT Statement Format 



Numbers must be entered for numeric variables, and 
quoted or unquoted strings must be entered for string 
variables. No assignment of values in a reply takes place 
until the reply is validated with respect to the type of 
data, the number of input items, and the allowable range 
for each item. 

Unless DELIMIT is in effect, numeric constants must be 
separated by commas or blanks, and string constants must 
be separated by commas. 

A carriage return marks the end of the input reply (the end 
of the data to be entered). If an insufficient number of 
data items is entered, the diagnostic NOT ENOUGH DATA, 
REENTER OR TYPE IN MORE is issued. When this 
message appears at the terminal, either reenter the entire 
input line or enter a non-blank delimiter followed by the 
additional data items. Starting a subsequent input line 
with a delimiter indicates that it is a continuation of the 
first input line. One of the diagnostic messages TOO 
MUCH DATA, RETYPE INPUT or ILLEGAL DATA, or 
RETYF'E INPUT is issued if too much data or unacceptable 
data is entered. In these cases, retype the entire data list. 

Rules for entering data from a terminal are as follows: 

• Numeric items must be delimited by commas or blanks 
and string items must be delimited by commas, unless 
a DELIMIT statement (described later) is in effect. 

• A carriage return marks the end of the input reply. 

• If an insufficient number of data items is entered, 
BASIC issues a request to reenter or type in more data. 

• If too much data or unacceptable data is typed, BASIC 
requests that the data be reentered. 

• All leading and trailing blanks (blanks between the last 
nonblank character of the data list and the carriage 
return) are eliminated from the input line. 

• Redundant delimiters preceding or following data 
items are ignored. 

• If a line ends with a delimiter, the input reply is 
assumed to be continued on the following line and 
another input prompt is issued. 

Figure 7-25 illustrates a program example of using the 
INPUT statement to enter data from the terminal during 
program execution. The example shows what happens if 
insufficient data is supplied in response to an INPUT 
request. The input reply line is completely reentered 
(the 2 is repeated). Alternatives are to add data to the 
previous input reply (,2) or to continue the input reply line 
en the next line (2,). 



Terminal Input 

When a BASIC program is run interactively from a 
terminal, the INPUT statement without a file ordinal 
(format 1 in figure 7-24) reads data into the program from 
the terminal. One item is input for each variable of the 
INPUT statement. 



File Input 

The second format in figure 7-24 reads from the file 
specified by the file ordinal (ne). It is essentially the same 
as input from a terminal except that TOO MUCH DATA 
and NOT ENOUGH DATA conditions are not applicable. 
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00100 A$="ABCDEF" 

00110 PRINT "ENTER A NUMBER AND A STRING" 

00120 INPUT X,A$U:5> 'TWO VALUES MUST BE SUPPLIED 

00130 REM NOTE INPUT INTO SUBSTRIN6 OF AS IN PROGRAM OUTPUT 

00140 PRINT "X = ,, ;X,"A$ = ";A$ 

00150 END 



produces: 



ENTER A NUMBER AND A STRING 
? 2 

NOT ENOUGH DATA, REENTER OR TYPE IN MORE AT 120 
? 2,48 
X= A$=ABC48F 



Figure 7-25. INPUT Statement Example 



Rules for data input from a file are as follows: 

• A display format file contains line images that can be 
printed at a terminal. However, the INPUT statement 
regards the file as one block of contiguous values with 
no special regard for the end of lines other than as 
item delimiters. 

• Numeric items must be delimited by commas or 
blanks; string items must be delimited by commas, 
unless a DELIMIT statement specifies other types of 
delimiters. 

• End-of-line (EOL) is a special indicator that marks the 
end of each line image on the file. It does not mark 
the end of the input reply from a file as a carriage 
return does for a terminal line. EOL simply acts as a 
delimiter in the same way as does a comma. 

• When entering data at a terminal, an input reply has to 
have the same number of items that is requested by 
the program. Too many or too few items cause an 
error. When entering data from a file, if more data is 
requested than is available in the current line, data is 
automatically taken from the following line(s). If 
more data exists in the current line than is needed, the 
unused data are simply retained for the next INPUT. 
No diagnostic is issued. For example, the remainder 
of a partially-used line is not skipped. 

• The program terminates with the diagnostic END OF 
DATA ON FILE if it attempts to INPUT more data 
than exists in the file. 

• The program terminates with the diagnostic ILLEGAL 
DATA ON FILE if invalid numbers or strings are 
input. However, the file is positioned to the following 
delimiter to facilitate recovery by using ON ERROR. 
See Error and Interrupt Processing. 

• Redundant leading and trailing delimiters are ignored. 

• The program terminates with ILLEGAL INPUT ON 
FILE if an INPUT statement attempts to read an 
output file whose file pointer has not been moved to 
the beginning of the file (via the RESTORE statement). 



ordinal referenced in the second format of 
is associated with the default input file 



If the file 

figure 7-24 

(J parameter on BASIC control statement), the statement 

operates according to the format 1 rules; for example, if 

the file is connected or assigned to a terminal, input is 

prompted, and too much and too little data are diagnosed 

as errors. File ordinal is automatically associated with 



the default input file (no FILE statement is required). 
Also, if the default input file is not connected to a 
terminal, the format 1 statements operate according to 
format 2 rules. 



DELIMIT STATEMENT 

DELIMIT specifies the character or characters to be used 
as input item separators. Figure 7-26 illustrates the 
formats for the DELIMIT statement. The characters 
specified override the default separators, comma and 
blank. Any characters, or abbreviations for characters 
(appendix A), can be specified as separators. If the 
abbreviation CR is specified, the entire line is accepted as 
one item. All preceding and trailing blanks are returned 
when CR is a delimiter. The operating system can add or 
delete trailing blanks on data lines entered through the 
terminal or card reader. 



1. DELIMIT (ch^. (ch 2 ), (ch 3 > 

2. DELIMIT #ne. (ch^, (ch 2 ), (ch 3 ) 

r ■::•:. .■..*!-. ..- , haract ibbiev i.. ■• 

ne Indicates numeric constant or variable 

(used as the file ordinal). 



Figure 7-26. DELIMIT Statement Format 

Zero, one, two, or three characters can be specified in a 
DELIMIT statement. If no characters are specified, the 
default delimiters (comma and blank) are restored. If no 
file is specified in the DELIMIT statement, the delimiters 
apply to the default input file; in interactive mode, this 
file is the terminal. (See section 12, Batch Operations, the 
J parameter.) 

Examples: 

10 DELIMIT (CR) I 



55 DELIMIT #!,(),(;) 



110 DELIMIT 



155 DELIMIT #1 



7-10 
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In the first DELIMIT statement (Brie number 10), if the 
program is run interactively from the terminal, the input 
requests read all information typed up to the carriage 
return (end-of-line if processed in batch mode) into a single 
variable. It should be noted that this form usually is used 
to read data into a string variable. In the second example 
(line number 55), a blank and semicolon (?) are interpreted 
as delimiters (numeric and string) when entering input from 
a file with an ordinal of 1. The succeeding lines 110 and 
155 restore the default delimiters (blank and comma). 

The following descriptions compare DELIMIT not in effect 
and DELIMIT in effect. 



DELIMIT Not in Effect (Normal Case) 

Carriage return on a terminal (end-of-line on files) is 
always treated as a delimiter. 

• When input is from a terminal and carriage return is 
encountered before the input list is satisfied, the 
message NOT ENOUGH DATA, REENTER OR TYPE 
IN MORE is issued. 

• When input is from a terminal and data exists on the 
input line after the input list is satisfied, the message 
TOO MUCH DATA, RETYPE INPUT is issued. 

• When input is from a file and end-of-line is 
encountered before the input list is satisfied, it (the 
end-of-line) is treated as a delimiter (item separator) 
and input continues from the next line. 

• When input is from a file and data exists on the input 
line after the input list is satisfied, this excess data 
item is retained for the next INPUT request. No 
diagnostic is issued. 

• If a delimiter is encountered after the input list is 
satisfied, the delimiter is ignored. 

Comma is the delimiter for all input items (numbers, 
quoted strings, and unquoted strings). Blank is a delimiter 
for numbers, but not for strings. When input is from a 
terminal, the input reply can be continued onto the next 
line by terminating the current line with a comma 
delimiter. Leading and trailing blanks are deleted. 



DELIMIT in Effect 

Default delimiters are turned off except carriage return 
or end-of-line. Only explicitly-named characters act as 
delimiters. 

• Comma and blank do not delimit items unless they 
are specified in a DELIMIT statement. 

• Quotes have no special meaning. 

• All characters, including quotes, leading and trailing 
blanks, but not delimiters, are valid string characters. 

• All strings are considered to be unquoted. There are 
no string boundary characters equivalent to quotes. 

Carriage return (end-of-line on files) is always a delimiter 
and need not be explicitly defined in a DELIMIT 
statement. The TOO MUCH DATA and NOT ENOUGH 
DATA conditions are handled as in the normal case. 

Trailing blanks on an input line are ignored unless CR is 
explicitly defined as a delimiter. 



Blanks are ignored if the item being input is a number or if 
blank has not been specified as a delimiter. 

Any specified delimiter, other than CR or blank, causes the 
input reply to be continued on the next line in interactive 
mode if the delimiter follows the last item on the line. 



PRINT STATEMENT 

The PRINT statement writes display format data on a 
terminal or a file. The formats for the PRINT statement 
are shown in figure 7-27. 



1. PRINT 


e^ d So d . . . e n d 


2. PRINT #ne, e 1 d e 2 d . . . e n d 


e 


Indicates constant, variable, or expression 
(numeric or string). 


d 


Indicates delimiter (comma or semicolon); 
final delimiter is optional. 

Indicates file ordinal expressed as a 
numeric constant, variable, or expression. 


ne 



Figure 7-27. PRINT Statement Format 

When the PRINT statement is executed, the value of each 
expression (e) is printed according to standard format. 
Spacing between the printed values is controlled by 
delimiters (d) in the print list. If no expressions are 
specified, a blank line is printed. 

The PRINT statement of format 1 in figure 7-27 writes on 
a default file named OUTPUT. When running the program 
interactively, file OUTPUT is the terminal; when running 
in batch mode, file OUTPUT is the printer. The default 
file name can be changed by using the K option of the 
BASIC control statement. (See Batch Operations.) The 
PRINT statement of format 2 in figure 7-27 writes on a 
file whose ordinal is #ne. 

Format 1 prefixes a carriage control character at the 
beginning of each line. Except for the first printed line, 
this character is always a blank. The carriage control 
character is not normally affixed to lines output if the 
second PRINT format is used, unless the file ordinal 
referenced is that of the default print file OUTPUT or 
default file specified by the K option of the batch BASIC 
control statement. 

To assure that the data from the format 2 PRINT 
statements print in proper order when the files are 
connected or assigned to the terminal, RESTORE or 
CLOSE the file before executing any other I/O statement 
that references a connected file. 

When printing data on a file that is to be read later with 
the INPUT statement, ensure that items on the file are 
separated by delimiters. When only numbers are printed, 
default delimiters (blanks) are automatically included in 
the output. When printing a file containing strings, each 
string must be printed on a separate line, or explicitly 
specified print delimiter characters must be printed 
between data items. In addition, if the string includes 
leading or trailing blanks, quote marks must be printed 
around the string. Figure 7-28 illustrates an example of 
the PRINT statement. 
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10 


LET A$="STRING" 




20 


LET BS="STRING2" 




30 


LET X=1 




40 


FILE #7="FILEX" 




50 


REM PRINT ON FILE 




60 


PRINT #7,A$;",";B$ 




70 


PRINT #7,X,X+X,SIN(X) 




80 


REM PRINT ON TERMINAL 




90 


PRINT AS;",";BS 




10C 


PRINT X,X+X,SIN(X) 




produces: 




STRING, STRING2 




1 


2 


.841471 



numeric formats is shown in figure 7-29. The following 
items refer to the output formats in table 7-4. 

TABLE 7-4. STANDARD NUMERIC OUTPUT FORMATS 



Figure 7-28. PRINT Statement Example 



DEFAULT PRINT FORMATS 

Unless a USING clause is used or the SETDIGITS statement 
(described later) is in effect, all numbers and strings 
printed are printed in standard default formats. These 
formats are explained below. 



Numeric Formats 

Numeric values are formatted in one of the three standard 
formats shown in table 7-4. A program example using the 



Internal Value 


Output Format 
Used 


Exact integers less than seven 
digits. 

Nonintegers that after 
rounding can be represented as 
accurately in decimal notation 
as in exponential (E format) 
notation. 

All other numbers. 


snnnnnn 
(E format) 

snnnnnnn 
(where one n 
represents a 
decimal point) 
(F format) 

sn.nnnnnE+nnn 
(E format) 



The n represents a numeric digit. 

The s represents a minus sign if the value is negative 
and a blank if the value is positive. 

Each format is terminated by one trailing blank. 

Leading zeros are suppressed. 

Trailing zeros after a decimal are suppressed in 
F format, but not in E format. 



00100 LET A1=0 

00110 LET B1=124 

00120 LET C1=123456 

00130 LET 01=1234567 

00140 LET E1=123456.789 

00150 LET F1=-. 00192 

00160 LET G1=1234567890 

00170 LET H1=1234567.8 

00180 LET J1 = . 07623488 

00190 LET K1=-. 0000192 

00200 PRINT "INTERNAL VALUE" 

00210 PRINT "0","-1 24", "123456", "1234567", "123456. 789" 

00220 PRINT 

00230 PRINT "OUTPUT FORMAT" 

00240 PRINT A1,B1,C1,01,E1 

00250 PRINT 

00260 PRINT "INTERNAL VALUE" 

00270 PRINT ". 00192", "1234567890", "1234567. 8", ".07623488", "-.00001 92" 

00280 PRINT 

00290 PRINT "OUTPUT FORMAT" 

00300 PRINT F1,G1,H1,J1,K1 

00310 END 



produces: 



INTERNAL VALUE 

-124 

OUTPUT FORMAT 
124 

INTERNAL VALUE 

.00192 1234567890 

OUTPUT FORMAT 

-.00192 1.23457E+9 



123456 

123456 
1234567.8 

1.23457E+6 



1234567 



123456.789 



1.23457E+6 123457. 



.07623488 



-.0000192 



7.62349E-2 -1 .92000E-5 



Figure 7-29. Program Example of Numeric Formats 
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The final digit in both the first and second formats of 
table 7-4 is obtained by rounding to the sixth place 
from the first nonzero digit, for example: 

123 456 789.453 is rounded to 123 457 000.000 

and 

.001234567 is rounded to .001234570 



String Formats 

String values are formatted as a contiguous group of 
characters. For example, only the characters in the 
original string value are displayed; no quotation marks or 
blanks are added. 

String constants are printed exactly as they appear in the 
PRINT statement, without the quotation marks. Examples 
of string formats using the PRINT statement are 
illustrated in figure 7-30. 

When a semicolon is used to separate strings, it is printed 
consecutively without any preceding or intervening blanks, 
as shown in figure 7-31. 

Commas and semicolons can be intermixed in any PRINT 
statement. When commas are used as separators with 
numeric data, each number occupies one zone; but with 
string data, each string can occupy more than one zone. 

Successive commas can be used to skip zones. Each 
comma causes a skip to the beginning of the next print 
zone. Semicolons have no spacing effect. 



PRINT ZONING 

The print line is divided into zones of 15 spaces each. 
Unless the MARGIN statement (described later) is used to 
specify some other value, the default margin (line length) 
is 75; there are five print zones in a line. A comma, used 
as a separator or a final delimiter, signals BASIC to move 
to the next zone of the print line, or to the first zone of 
the next print line when the last zone is filled. If a print 
zone is exactly filled by a print item, a comma separator 
causes the print mechanism to skip over the following print 
zone. 

A semicolon used as a separator has no spacing effect (the 
print line zoning effect is inhibited). Numbers are printed, 
preceded by a blank or a minus sign, and followed by 
another blank, so two positive numbers are separated by 
two blanks. (See figure 7-32.) 





10 


PS INT ' 


•THIS 


IS' 


{"AN 


EXAMPLE" 




20 


PRINT "THIS 


IS' 


, "AN 


EXAMPLE" 




30 


END 










produces: 
















THIS ISAM 


EXAMPLE 








THIS IS 




AN 


EXAM 


^LE 



Figure 7-31. Use of Semicolons With String Data 



10 


LET A1 


= 123 


20 


LET B2 


= 256 


30 


PRINT 


"12345678901234567890" 


40 


PRINT 


A1;B2 


50 


PRINT 


-a 


50 


PRINT 


-A1;14.3 


60 


END 




produces: 






12345678901234567890 


123 256 




-123 14. 


3 



Figure 7-32. Use of Semicolon With Numeric Data 

If a PRINT statement does not end with a delimiter (either 
semicolon or comma), subsequent printing commences at 
the beginning of a new line. If a PRINT statement does 
end in a delimiter, subsequent printing continues on the 
same line until the line is filled. If a semicolon is used as 
the final delimiter, the next item printed starts in the next 
available space. If a comma is the last delimiter, the next 
item printed starts at the beginning of the next zone. 

If the formatted print item does not fit entirely on the 
current line, it is printed as the first item of the next line. 
If an item does not fit on an empty line, it is broken at the 
margin and continued on the next line. (See figure 7-33.) 



TAB Function 

The TAB function causes the printing mechanism to tab to 
a specified column. Printing can commence in the 
specified column. The semicolon should be used as a 
separator when the TAB function is used because the 





115 LET X 

117 PRINT 

118 END 


=Y=Z=2 
"ANSWER 


II II 


X AND 


Z=";Z,"X* 


Y*Z=' 


•;X* 


Y*Z 


produces: 




















ANSWER 


X 


AND 


Z=2 


X*Y*Z 


= 8 






If statement 117 is changed 


to: 
















117 PRINT 


"ANSWER 


;x 


AND Z 


=;Z;X*Y*Z= 


;X*Y 


*Z" 




the program 


produces: 


















ANSWER;X 


AND Z=;Z 


;X*Y*Z=;X*Y*Z 









Figure 7-30. String Formats Using the PRINT Statement 
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10 


FOR 1-1 TO 10 


15 


PRINT I 


20 


NEXT I 


30 


END 


produces: 




1 




2 




3 




4 




5 




6 




7 




8 




9 




10 




If line 15 is changed to: 


IS 


PRINT I, 


The above 


program produces: 


1 


2 


6 


7 



3 
8 



4 
9 



5 
10 



If line 15 is changed to: 

15 PRINT I; 
The program produces: 

123456789 10 



Figure 7-33. Print Zoning Examples 



TAB(ne) 



Indicates constant, variable, or expression 
indicating the print position number. 



Figure 7-34. TAB Function Format 

the format for the TAB function. The TAB function is 
legal only in the PRINT statement; it should not be used in 
MAT PRINT or PRINT USING statements. If the argument 
is less than the current position, the print mechanism is 
positioned to the specified column of the next print line. If 
the argument is greater than the current line margin, it is 
divided by the line margin, and the remainder is used as the 
argument. If the argument is less than one, a warning 
diagnostic is issued, and the value one is substituted. 
Examples of the TAB function appear in figure 7-35. 



PRINT USING STATEMENT 

The PRINT USING statement writes display format data on 
a terminal or file. The formats for the PRINT USING 
statement are shown in figure 7-36. 

When the PRINT USING statement is executed, the value of 
each expression (e) is printed in the format specified by an 
image. The image is defined in the image statement (In) or 
in the string expression (se). 

Format 1 (figure 7-36) prefixes a carriage control 
character at the beginning of each line. Except for the 
first printed line, this character is always a blank. The 
carriage control character is not normally prefixed to lines 
output by format 2, shown in figure 7-36, unless the file 



ordinal referenced is that of the default print file (for 
example, OUTPUT or the file specified by the K option of 
the BASIC control statement). To assure that the data 
prints in proper order when the files are connected or 
assigned to the terminal under NOS by using format 2 
PRINT USING statements, RESTORE or CLOSE the file 
before executing any other I/O statement that references a 
connected file. 

When printing data on a file that is to be read later with 
the INPUT statement, ensure that items on the file are 
separated by delimiters. When only numbers are printed, 
default delimiters (blanks) are automatically included in 
the output. When printing a file containing strings, each 
string must be printed on a separate line or explicitly 
specified input delimiters must be included between data 
items. In addition to maintain leading and trailing blanks 
in the string, you must print the strings within quotation 
mark characters. 



IMAGE 

The image for a PRINT USING statement describes the 
output format for the value to be printed. It consists of 
format fields for each value in the print list and optional 
separating literals. Each character in the image 
corresponds to one character in the printed output. When 
the format field is filled by string data, the specification 
determines only the number of characters to be included 
from the string. When the format is filled by numeric data, 
the format specification directs the placement of the value 
in the field and the number of digits retained in the 
converted value as well as the extra characters to be 
printed with the value (for example, decimal point, dollar 
sign, or asterisks). 
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1. 




20 PRINT TAB<1O);"r , ;TABC20);"2";T*B(3O);"3" 


30 PRINT "123456789012345678901234567890234567890" 


40 END 


produces: 






1 2 3 


123456789012345678901234567890234567890 


2. 

00100 


LET 11=12345678 


00110 


LET 12=123456789 


00120 


LET 13=12345678901 


00130 


LET 01=123.4 


00140 


LET 02=123.456 


00150 


LET 03=123.4567 


00160 


PRINT I1,TAB<25);01 


00165 


PRINT I2,TAB<25);D2 


00170 


PRINT I3;TAB(25);03 


00180 


END 


produces: 




1.23457E+7 123.4 


1.23457E+8 123.456 


1.Z3457E+10 123.457 



Figure 7-35. TAB Function Examples 



1. PRINT USING In, e, d e 2 d . . . e n d 


PRINT USING se, e, d e 2 d . . . e n d 


2. PRINT #ne USING In. e-, d e 2 d . . . e n d 


PRINT #ne USING se, e, cl e 2 d . . . e n d 


e 


Indicates constant, variable, or expression 

v .; ' f ttmkm ic or strias? * ; - ■ .' ■' : ■ < ■■ ; ' 


d 


Indicates delimiter (comma or semicolon); 
:'■■'. final delimiter is optional. 


ne 


Indicates numeric constant, variable, or 
expression that evaluates to a file ordinal 
associated with s fife name. 


1" 


Indicates line number of image statement 
(described later in this section). 


se 


Indicates string constant, variable, or 
expression describing the image required 
to format the output (described later). 



Figure 7-36. PRINT USING Statement Formats 

As described under the PRINT USING statement, an image 
can be written as a separate statement or as a string 
expression. An image string is constructed as shown in 
figure 7-37. An image statement is not executable, so it 
has no effect on the results of the program if it is 
encountered during a normal execution sequence. The 
format of an image statement is as shown in figure 7-38. 

Literals can contain any character or combination of 
characters that do not constitute a format field (F). 
Format fields are constructed from specification 
characters #,$,*, , , , +, -, comma, ( , and ). 



L o F i L i F a L 2 


• ■ ■ «*„»-„ 


L (literals) 


Characters are to be printed exactly as they 
appear. 


F (fields) 


Specifications that picture formats for 
printing numeric and/or string values. 



Figure 7-37. The Image for a PRINT USING Statement 




Figure 7-38. Image Statement Format 

A separate image statement is referenced by its line 
number (from within the PRINT USING statement) as 
shown in example 1, figure 7-39. For separate image 
statements, a trailing literal cannot be terminated by a 
blank. For example: 

:#LITERAL AAA 

is compiled as: 

://LITERAL 

If the image is a string, it can be included as a string 
constant within the PRINT statement (example 2 in 
figure 7-39) or it can be specified as a string expression 
referenced in the PRINT statement (example 3). 

When a value is printed according to a field of an image, 
the literal following the field (if any) is also printed. Only 
that part of the image that is required by the print list of 
the associated PRINT USING statement is used. 
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100 LET T1=544 

200 PRINT USING 300, T1 

300 :T0TAL OF ORDERS UttnttMU 

produces: 

TOTAL OF ORDERS 544 



2. 



tOO LET T1=544 

200 PRINT USING "TOTAL OF ORDERS ##*###", T1 

produces: 

TOTAL OF ORDERS 544 



100 LET T1=544 

110 AS="TOTAL OF ORDERS ###*##' 

120 PRINT USIN6 AS,T1 

produces: 

TOTAL OF ORDERS 544 



Figure 7-39. Image With PRINT USING Statement 



Delimiters between items in the print list of the PRINT 
USING statement do not have the same meaning as they do 
in the PRINT statement because there is no print zoning. 
The final delimiter, if present, indicates that subsequent 
printing continues on the same line until the line is filled. 
Whether or not this delimiter is a comma or a semicolon, 
the next item printed starts in the next available space. If 
absent, subsequent printing begins on the next line. 

If the number of values to be output in a PRINT USING 
statement is greater than the number of format 
specifications in the image, the format specifications are 
reused until all the variables have been output. For this 
case, the delimiter after the last item printed before 
repetition directs line action. If this delimiter is a comma 
(,), a new line is started when the image is repeated. If the 
delimiter is a semicolon (;), printing continues on the same 
line. 

Figure 7-40 illustrates the use of the final delimiter. The 
result is the same if the final delimiter is a semicolon 
instead of a comma. Figure 7-41 shows how delimiters can 
affect the output when the image is reused. 



10=10 LET N=5 

25=25 PRINT USING 30, N, 

30=30 :$T0TALS PAGE ttftlt DATE 

40=40 PRINT DATS 

50=50 END 

produces: 

STOTALS PAGE 5 DATE 06/19/80 



100 N=5 




101 M=10 




102 PRINT USING 


"##"*iMJM 


103 PRINT USING 


"»*", N»M 


produces: 




510 




5 




10 





Figure 7-40. Delimiters in Image 



Figure 7-41. Delimiters in Image Reused 



With respect to the print margin (the maximum line length), 
the output generated by PRINT USING is treated as one 
string. That is, if all of the output formatted by PRINT 
USING does not fit on the current line, it is broken at the 
margin and continued on the next line. 



Format Fields 

There are three kinds of format fields available for use in 
images: numeric, string, and neuter. Numeric fields can be 
further subdivided into integer, fixed-point and 
floating-point fields. Sign control and special editing 
options are available for numeric fields. The numeric, 
string, and neuter fields are described in table 7-5. 
Table 7-6 describes the special options. Examples of these 
fields types and options are shown in figures 7-42 and 7-43. 
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TABLE 7-5. TYPES OF FIELDS 



Type of Field 


Image Representation 


Output Format 


Numeric 


Integer 

Fixed- 
Point 

Floating- 
Point 


Indicated by any number of pound signs 
(#). 

Indicated by any number of pound signs 
(#) with a single leading, embedded, 
or trailing decimal point. 

Indicated by a fixed-point specifica- 
tion followed by at least two, and 
usually five, circumflexes (a). 


Value right- justified. Rounded to 
integer. 

Decimal point positioned as specified, 
decimal portion rounded to fit up to 14 
digits of accuracy. 

Decimal point shifted to fit format speci- 
fication and exponent adjusted accordingly. 
Value is rounded as for fixed-point. 


String 




Indicated by the < or > followed by 
any number of pound signs (#). 


Value left-justified and right- truncated 
(default) or right-justified and left- 
truncated according to leading character. 

If the leading character is < , the value 
is left- justified in the field and right- 
truncated, if necessary. 

If the leading character is > , the value 
is right-justified in the field and left- 
truncated, if necessary. 


Neuter 




Indicated by any number of pound signs 


Numeric value right-justified and trun- 
cated to integer. String value left- 
justified and right- truncated. 



TABLE 7-6. SIGN AND EDIT OPTIONS 



Option Character 


Image Representation 


Output Format 


Sign 


Blank or 
no sign 

+ 

( ) 
DB/CR 


No sign control specified. 

Plus sign specified as first character in 
the field. 

Minus sign specified as first character in 
the field. 

Parentheses enclosing field. 

DB or CR specified as last two characters 
of the field. 


If a value is negative, a minus immedi- 
ately precedes the leftmost significant 
digit, for example, minus is treated as 
high-order significant digit. 

If a value is positive, sign is not 
printed. Plus is printed for positive 
values; minus for negative values. 

Blank is printed for positive values; 
minus for negative values. 

Negative values enclosed in floating 
parentheses. Positive values enclosed in 
blanks. 

Negative value followed by DB or CR. Pos- 
itive value followed by two blanks. 


Coirnia Insertion 


Commas can be inserted between any charac- 
ters of a numeric field that can be 
replaced by digits when the field is used; 
for example, between pound signs (#), 
dollar signs ($), or asterisks (*). 


Commas will be printed where they occur in 
the numeric image, provided they are sur- 
rounded by digits. 


Floating $ 


Leading pound signs (#) in a numeric 
specification replaced by dollar signs 
($)• 


A dollar sign is printed in the rightmost 
dollar sign position in the image that was 
not replaced by a digit. Unused dollar 
signs are replaced by blanks. 


Check Protect 


Leading pound signs (#) or pound signs (#) 
following dollar signs in a numeric speci- 
fication replaced by asterisks (*). 


An asterisk is printed in every asterisk 
position in the image that was not 
replaced by a digit. Unused conmas are 
replaced by asterisks. 
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Integer Field 

10 LET A=12345.67 

15 PRINT USING 20, A 

20 :SUMMARY TOT AL=####### 

30 END 

produces: 

SUMMARY TOTAL= 123456 

Fixed-Point Field 

10 A=12345.678 

20 PRINT USING "TOTAL COST #####.##", A 

produces: 

TOTAL COST 12345.68 

Floating-Point Field 

10 A=12.345E01 

20 PRINT USING "#.####AAA" ,A 

produces: 

I .2345E + 2 

String and Neuter Fields 

10 A=12345 

II PRINT USING 12, "FRACTION =",A 

12 : <n#n#nn#n»nn nnunu 



produces: 



FRACTION 



12345 



A field begins when a combination of characters is 
identified. (See Format Fields in this section.) A field 
ends when a literal is encountered; for example, when a 
combination of characters appears that do not conform to 
the order restrictions described below or contain 
characters that are not allowable field characters. A field 
also ends when an end-of-line is encountered (or 
end-of-string). The fields of the image statement are 
described in figure 7-44. 



Order Restrictions 

The following order restrictions govern the allowable 
combinations of specification characters in fields. 

• Plus and minus signs and the left parenthesis sign 
indicator, if present, must be positioned before all 
other characters of a field. Only one sign indicator is 
permitted per format field. 

• Dollar signs ($), if present, must appear following the 
plus or minus sign. They cannot follow a decimal point. 

• Any asterisks, if present, must follow the sign and/or 
dollar signs. Asterisks cannot follow a decimal point. 

• Pound signs (#) can appear anywhere after the optional 
sign unless dollar signs and/or asterisks are present. If 
they are present, the pound sign can only appear after 
them. 

• The trailing sign, right parenthesis, or DB/CR, if 
required, can only appear as the last characters of an 
image field. 

• Commas can appear anywhere provided they are 
surrounded by characters that can be replaced by 
digits when the field is used. Commas cannot, for 
example, appear next to a decimal point, a sign, or the 
first dollar sign. 



Figure 7-42. Format Field Types 



A decimal point, if present, can appear anywhere after 
a leading sign or parenthesis and before a trailing sign 
indicator. There can be only one decimal point per 
field. 



Examples: 

1. Sign Specifications 



10 PRINT USING 30,11,11,11 
20 PRINT USING 30,-12,-12,-12 

30 :+## -nn nnn 



produces: 



+11 11 11 

-12 -12 -12 



2. Commas Insertion 

10 print using "nnn r nu#,nnn,nnn" , 1000000 

produces: 

1,000,000 



Figure 7-43. Sign and Edit Option Examples (Sheet 1 of 2) 
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3. Parentheses and OB/CR sign options 




500 PRINT USING 550,1000.588,14.75 




520 PRINT USING 550,-14738.10,-173 




550 :<###,###,###.##) or tnt#,#n#, ###.##ob 


YOUR CHOICE 


produces: 




1,000.59 OR 14.75 YOUR 


CHOICE 


(14,738.10) OR 173.00DB YOUR 


CHOICE 


4. Floating-Dollar option 




600 PRINT USING 650,10.75,138.7,111.888 




610 PRINT USING 650,-1738,-28,-29 




650 :$$,$$$. ##CR $$$$$$ ($$$###.##) 




660 PRINT USING "+$S$$$",-7 




produces: 




$10.75 $139 $111.89 




$1,738.00CR $-28 ($ 29.00) 




-$7 




5. Check Protect 




600 LET F$="$***, ***.##" 




610 PRINT USING F$, 1745.50 




620 PRINT USING F$, 25 




produces: 




$**1,745.50 




$*****25 .00 





Figure 7-43. Sign and Edit Option Examples (Sheet 2 of 2) 



1010 :TOTALS : $$,$##.## #####$$$$#.##AMOUNT: $$,###.## 
t t t t t t t t 

© ® G> ® ® © @® 

© The character T is not an allowable format field character so it indicates the start of a literal. 

@ The $$ begins a field. One $ by itself is not considered a numeric field. 

(S) Blanks are not allowable format field characters so they indicate the end of the field and beginning of a literal. 

(4) The # begins a new field. 

© The $ because of position cannot be part of the previous field, so that field ends. $$ begins a new field. 

(§) The A is not an allowable format field character, so it indicates the start of a literal. 

© The $$ begins a new field. 

(§) The end-of-line terminates the last field. 



Figure 7-44. Fields of Image Statement Identified 
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Figure 7-45 illustrates the result of inadvertently including 
a field character in a literal. Figure 7-45 shows the 
corrected version. 



20 


N=5 












21 


PRINT USING 


"A IS # 


## 


IN THE 


LIST", 


N 


produces 














A 


IS 5 













Figure 7-45. Field Character in Literal 

In figure 7-45, the first pound sign is identified as a 
separate field and is replaced by the present value of N. 
Since there were no further items in the print list, the 
literal (a blank) following the field is printed, and scanning 
stops. 

In figure 7-46, the string # is printed according to the 
neuter field # and the number is printed according to the 
neuter field ##. 



22 PRINT USING "A IS # ## IN THE LIST", 

"#". N 

produces: 

A IS # 5 IN THE LIST 



Figure 7-46. Correction of Field Character Use 



Special Cases 

Each of the characters that comprises a field is a place 
holder. That is, a blank, a symbol, or a digit replaces each 
field character. The following section deals with rules of 
placement, large fields, accuracy, field overflow, and signs. 

There are no restrictions on the number of pound signs 
allowed in a format field in an image. However, since the 
machine word size allows a maximum of 14 digits of 
accuracy, only 14 digits appear on output. 

If the value to be printed in an integer or fixed-point 
numeric format field is greater than 10.15.^ an * j s 
printed followed by the number printed in floating-point 
format. (See example 1 in figure 7-47.) If printing a value 
according to a fixed-point format yields more than 14 
digits, the least significant fractional digit positions are 
filled with blanks so that only 14 digits print. (See 
example 2 in figure 7-47.) 

If more than 14 fractional digits are requested in a 
floating-point format field, all digit positions beyond the 
14th are replaced by blanks. The print positions of the 
exponent value are not affected. (See example 3 in 
figure 7-47.) Unless DELIMIT is used, this result is 
readable by a BASIC program because the blank delimits 
.78200000000000 from E + 001. 

If a number, including its sign, is to be printed but the 
number is too large for the image specification, overflow 
occurs. (See example 4 in figure 7-47.) Wien an overflow 
condition occurs, if the image field includes any of the 
special edit characters, $, *, DB, CR or (), which normally 
denote a monetary field, the entire printed field is filled 
with asterisks to indicate that an error has occurred. (See 



t. 


130 


PRINT USING "*#*»#*#*****###«*##", \ .08988E20 


produces: 








♦♦IE 


♦20 




2. 










100 


A=-7.82 






180 


PRINT USING 130..A 






130 


!##.######## ######D8 




produces: 








7.8200000000000 D3 




3. 










100 


A=7.82 






120 


PRINT USING 130, A 






130 


:#.#############*##t 


1 1 1 1 


produces: 








.78200000000000 E+001 






Figure 7-47. Special Cases for Format Fields (Sheet 1 of 2) 
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100 A = -7B 

200 PRINT USING "## 



produces: 

*-78 *7.82 
5. 



.#*"»A,7.82 



500 AS="THIS IS THE T0TAL" 

600 PSINT USING "<*##############», A S 

700 PRINT USING ">#############*#», A$ 



produces: 

THIS IS THE T0TA 
HIS IS THE T0TAL 



400 A=-17.82 

410 PRINT USING ••$.##", A 

produces: 



800 A=!2000000000.0 

810 PRINT USING "*.##tf,A 

READY. 

produces: 

1.20E*10 



Figure 7-47. Special Cases for Format Fields (Sheet 2 of 2) 



example 6 in figure 7-47.) This is a significant feature 
when printing a monetary value, for example, printing a 
check, because it prevents the printing of an unexpectedly 
large value. When an overflow condition occurs, but the 
image field does not contain any of the special edit 
characters, one asterisk is printed and the image is 
expanded to accommodate the size of the value to be 
printed, shifting all other fields to the right. 

Because of the nature of floating-point representation, 
only the exponent portion of a floating-point number can 
overflow. In example 7 in figure 7-47, an asterisk is 
printed following the E, and the actual exponent is printed, 
shifting all other fields to the right; the result is in the 
format shown in the PRINT USING statement at line 
number 810. 

A string that is too large to be printed in the image 
specification is truncated on the right or left, depending on 
whether the format specifies left-justification or 
right-justification. (See example 5 in figure 7-47.) 



MARGIN STATEMENT 

This statement defines the right-hand margin for printed 
output. It overrides the default margin of 75. The formats 
for the MARGIN statement are shown in figure 7-48. The 



MARGIN statement permits the building of long lines for 
output on wide-carriage terminals or other devices. It also 
allows the program to control maximum record lengths 
written on files. When the MARGIN statement is used 
without specifying a file, it applies to standard output, 
such as the terminal or the printer. Output can be 
different than expected since it can be affected by IAF, 
INTERCOM, or the type of terminal used. Commands are 
available to change these results. See the NOS Interactive 
Facility reference manual, the INTERCOM Version 5 
reference manual, and the INTERCOM Version 4 reference 
manual. 



1. 


MARGIN 


nCo 


2. 


•• MARGIN #1^ , ne 2 .- '" 




ne-i 


Indicates file ordinal expressed as a numeric 
constant, variable, or expression. 




":" 8 2 : ' 


Indicates numeric constant, variable, or 
expression. .■'..'„• '.-,:■'':■■:'"'■ ;. :■>■'* :":■;;:■■;.-" ' -■■' '-■".'.:.:■'■.' ■'■-■■ .■'■ 



Figure 7-48. MARGIN Statement Formats 
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In figure 7-48, the expression ne2 is evaluated and 
truncated to an integer. It must be in the range through 
131070, and its value affects all PRINT statements to the 
associated file or the terminal until another MARGIN 
statement is executed. If the number of characters in the 
item to be printed is longer than the defined margin, it is 
broken into pieces so that as many lines as required are 
used. 

A margin value of indicates that no upper limit applies 
(the margin is effectively set to infinity). This allows a 
continuous stream of characters with no line terminators 
to be generated. Figure 7-49 shows examples of the 
MARGIN statement. 



200 MARGIN #6, 136 
310 MARGIN IM/K 



Figure 7-49. MARGIN Statement Example 

In the first example, the right margin is set at 136 for 
output to a file with an ordinal of 6 previously specified by 
a FILE statement. In the second example, the expression is 
evaluated, rounded, and used as the right margin value for 
PRINT statements. 

Figure 7-50 shows that MARGIN controls the number of 
logical characters in the line, as opposed to physical 6-bit 
characters; for example, in ASCII mode 12-bit escape code 
characters count as one character and a line can be 150 
6-bit characters long even though the margin is 75. This is 
normally only of concern when passing BASIC files to other 
language programs. 



SETEHGITS STATEMENT 

The SETDIGITS statement can be used to specify the 
number of significant digits to be output in subsequent 
PRINT statements when the default formatting is used. 
Numeric constants that are equal to or greater than seven 



digits are formatted and printed as exponential constants. 
This statement allows data printed up to 14 significant 
digits to be obtained. The value assigned by SETDIGITS is 
truncated to an integer in the range 1 to 14. Numbers are 
printed within the defined significance until the end of the 
program or another SETDIGITS statement is encountered. 
Figure 7-51 illustrates the format for the SETDIGITS 
statement. Note that any relevant sign or exponent is still 
printed even if a SETDIGITS value of 1 is in effect. A 
program example of the SETDIGITS statement is shown in 
figure 7-52. 



10 margin 
20 print 
30 end 


17 
rptSC'a" 


,26) 


,1 


.75 


,88 


produces: 












aaaaaaaaaaaaaaaaa 










aaaaaaaaa 
1.75 
88 













Figure 7-50. Program Example Using MARGIN Statement 



SETDIGITS 


ne 






r>» 


Indicates numeric constant, 
expression. 


variable, 


or 



Figure 7-51. SETDIGITS Statement Format 



INTERNAL DATA TABLE I/O 

I/O for internal data tables (blocks of data internal to a 
BASIC program) uses the DATA statement to create, and 
the READ statement to access, the tables. 



100 LET A=55. 


45454545 


110 PRINT "A= 


55.45454545 AND IS NORMALLY 0UTPUT AS"JA 


120 PRINT "SETDIGITS". "VALUE OUTPUT" 


130 F0R N=l T0 10 


140 SETDIGITS 


N 


150 PRINT N»A 




160 NEXT N 




170 END 




produces: 




A=55. 45454545 


AND IS NORMALLY 0UTPUT AS 55.4545 


SETDIGITS 


VALUE 0UTPUT 


1 


6E + 1 


2 


55. 


3 


55.5 


4 


55.45 


5 


55.455 


6 


55.4545 


7 


55.45455 


B 


55.454545 


9 


55.4545455 


10 


55.45454545 



Figure 7-52. SETDIGITS Statement Example 



7-22 



19983900 G 



DATA STATEMENT 



READ STATEMENT 



The DATA statement constructs an internal data table 
containing the values appearing in the DATA statement 
line; this data can then be accessed by the READ 
statement. Figure 7-53 shows the format for the DATA 
statement. 



DATA cj, C2> . . . , c n 

c Indicates numeric or string constant. 



Figure 7-53. DATA Statement Format 



The data values ci,c2,...,c n are entered in the 
data table in the same order that they appear in the DATA 
statement line. The number of values per DATA statement 
line is restricted only by the length of the line. Any 
number of DATA statements can be used anywhere in the 
program to construct the data table; the BASIC compiler 
considers the statements to be contiguous statements and 
automatically places the data in sequential order in one 
internal data block before the program executes. 



Both quoted and unquoted strings are allowed in a DATA 
statement line. Leading or trailing blanks in unquoted 
strings are ignored. An unquoted string can begin with 
plus, minus, digit, letter, or period, and can contain these 
characters as well as blanks. Unquoted strings cannot 
begin with a comma or a question mark. Other characters 
are allowed since they might not be supported in future 
versions of BASIC. All characters in quoted strings are 
considered to be significant, including any leading or 
trailing blanks. 



DATA statements are nonexecutable and have no effect on 
the results of a program if they are encountered in the 
normal sequence of execution. 



Figure 7-54 shows two examples of using the DATA 
statement to construct internal data tables. Example 2 
also illustrates the diagnostic for not enough data. Both 
examples also demonstrate the READ statement. 



1. 

100 DATA 1,2,3 
110 READ A,3,C 
120 PRINT A,8»C 




produces: 




1 2 


3 


2. 

100 DATA 1,2,3 
110 READ A, 3, CD 
120 PRINT A.B.CD 
130 END 




produces: 




END 0F DATA AT 110 
3ASIC EXECUTI0N ERR0R 





The READ statement (READ without a file ordinal) is used 
to read data values contained in the internal data table. 
The internal data table is a table containing data values 
that has been built into a program by using DATA 
statements. The format for the READ statement appears 
in figure 7-55. 



READ v 1# v 2 , . . - , v n 

v Indicates variable identifier (numeric or string). 



NOTE 

An alternate form of the READ statement is provided 
for reading binary files created by the WRITE state- 
ment. See Binary I/O Statements in this section. 



Figure 7-55. READ Statement Format 

When a READ statement is executed, data values contained 
in the data table are placed sequentially into the variables 
v l> v 2 f • • • > v n- The read position pointer is 
advanced one data item for each value read. 

The variables in a READ list must correspond in type to 
data items being read from a data table. For example, 
numeric variables must correspond to numeric data; 
otherwise, program execution terminates, displaying the 
diagnostic BAD DATA IN READ. If the ON ERROR 
statement is used to trap this situation, the diagnostic BAD 
DATA IN READ is not returned, and a subsequent READ 
statement accesses the next data item (the one following 
the bad data). Note that unquoted strings that look like 
numbers can be read either as strings or numbers. 

If a READ statement attempts to read more data than is 
available, the diagnostic END OF DATA is given, and 
program execution terminates. Check for end-of-data by 
using the NODATA statement (described in this section 
under File Control Statements). The F END or IF MORE 
statements cannot be used to check for end-of-data in an 
internal data table; these two statements apply only to 
files. After issuing a READ, use RESTORE to move the 
data pointer to the beginning of the data table. 

In figure 7-56, the DATA statements at lines 10 and 20 
establish values for the data table. The READ statement 
at line 30 reads the first two data values (10 and 15). The 
READ statements at lines 40 and 50 read the remaining 
data values. F$(l:4) reads a substring of value "THREE". 



10 


DATA 


10,15,17 


20 


DATA 


"ONE", "TWO", "THREE", "FOUR" 


30 


READ 


A,B 


40 


READ 


C,D$ 


50 


READ 


E$,F$(1 :4>,G$ 


60 


PRINT 


A,B 


70 


PRINT 


C,D$ 


80 


PRINT 


E$,F$,G$ 


90 


END 




produces: 






10 


15 


17 


ONE 


TWO 


THREE FOUR 



Figure 7-54. DATA Statement Examples 



Figure 7-56. READ Statement Example 
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MATRIX OPERATIONS 



8 



Matrices arc arrays containing a collection of data and are 
widely used in all applications of programming. BASIC 
provides a series of functions and statements designed tc 
simplify the use of matrices so that even the relatively 
inexperienced programmer can easily work with them. 

The first part of this section provides an overview of what 
matrices are and how storage is allocated for them. The 
remainder of this section describes the matrix arithmetic 
operations, matrix functions, and the matrix I/O 
statements. 

MATRIX DEFINITION AND 
DECLARATION 

A matrix is a collection of data, numeric or string, that has 
been structured to enable referencing to specific elements 
of the matrix, and to manipulate the data within the 
matrix as a unit. 

• A one-dimensional array consists of elements of data 
in a linear arrangement. A one-dimensional array is 
treated as a column vector (n rows times one column 
array) in BASIC. To obtain a row vector, declare a 
two-dimensional array with one row and n columns. 

• A two-dimensional m times n array is a rectangular 
array containing m rows and n columns of elements of 
data. A specific element of the array can be 
referenced (for example, A(2,3)), or the entire array as 
a unit in a MAT statement can be referenced (for 
example, MAT A=B). If an array that has not been 
previously defined is referenced, the default is a 
2 -dimensional array (10 times ). 

• A three-dimensional rf times n times p array is nn 
arrangement of p number of m times n matrices atfc? 
by side. A specific array element, can be referenced, 
for example, A(l,3,5); but a three-dimensional array as 
a whole cannot be referenced. Also, none of the 
matrix statements or matrix functions can manipulate 
three-dimensional arrays. 

The matrix statements and functions are restricted to the 
use of 1- and 2-dimensional arrays. Operations that use 
3-dimensional arrays must be provided by user-written 
routines. 

The number of array elements specified and used within a 
BASIC program is limited only by the amount of available 
memory, except for arrays used by the INV function; this 
function can work with arrays no larger than 100 times 100 
elements. In all cases, numeric array elements that 
receive no values are assigned zero values by default, and 
string arrays are assigned null strings by default. It should 
be noted, however, that it is poor programming practice to 
assume that variables have a value before the program 
explicitly assigns values, particularly since, on many 
systems, this practice is not allowed. See the Future 
System Migration Guidelines, appendix E. 



ARRAY BOUNDARIES 

The lower boundary (or origin) of an array is normally 0, 
but can be changed to 1 by using the OPTION statement 
(described in section 3). This means that array 
subscripting can start either with (the default) or 1. For 
example, DIM A(2,4) defines a two-dimensional array 
having 3 rows and 5 columns, or 15 elements, when the 
base is 0. The elements of such an array are presented in 
figure 8-1. ":, . :V-.--' : . .'■..■;/ ■;. 



column column 1 column 2 column 3 column 4 



row 
row 1 
ruw 2 



(0,0) 


(0,1) 


(0,2) 


(0,3) 


(0,4) 


(1,0) 


(1.1) 


(1,2) 


(1,3) 


(1,4) 


!2,0) 


(2,1) 


(2.2) 


(2,3) 


(2,4) 



Figure 8-1. Array A(2,4) With OPTION BASE 

When the OPTION statement is used to change the lower 
boundary of arrays to 1, DIM A(2,4) defines a 
two-dimensional array having 2 rows and 4 columns, or a 
total of 8 elements. The elements of such an array are 
shown ^ in figure 8-2. y .- ■ : : '■■:.■_'■, ■■ ■'. X v ' y ' .'"■ ■■;' ' : h ■ .'-V 





column 1 


column 2 ra>tamn 3 cohitnr; 4 




row 1 
row 2 


1 1) 


(1,2) 




: ■■■■ 




(2,1) 


(2,2) 


I2,3| 


(2.4) 











Figure 8-2. Array (2,4) With OPTION BASE 1 

Therefore, when working with matrices, it is important to 
remember that array subscripting starts with element 13, 
unless the OPTION statement is used to change the lower 
boundary to 1; in which case, array subscripting starts with 
element 1. ; \ 



ARRAY DECLARATION 

An array declaration states that an array with a specified 
name and dimension be allocated to a BASIC program. 
Arrays can be defined j»xjvlicitiy in a DIM sta1w»ifc;it 
(described in section 3) or implicitly through usage. Arrays 
require a DIM statement when a subscript value greater or 
less than 10 is needed. To save space, use the DIM 
statement to dimension an array with an upper subscript 
limit less than 10. An array not previously defined by the 
DIM statement is implicitly declared to have one dimension 
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(10) when the element is referenced by an array variable 
with one subscript; two dimensions (10,10) when the 
element is reference by an array variable with two 
subscripts; and three dimensions (10,10,10) when the 
element is referenced by an array variable with three 
subscripts. 

The following example illustrates use of the DIM 
statement. Refer to section 3 for a description of the DIM 
statement and ^ddftionai ^xwnptss of u-cage. 

DIM X1(50),X2(12,12),X$(6,6) 

This statement reserves space for: 

XI A one-dimensional numeric array with 51 

elements vv "'■;;"-:.'■ 

X2 A two-dimensional numeric array with 13 

times 13, or 169, elements 

X$ A two-dimensional string array with 7 times 

' '■"■ > : ~, or 49, elements . : ~i ■ ;: ■ ; ;: ■: ■ 

Refer to section 3 for a description of the DIM statement 
s?nd additional examples of mage. 



■ 


(no) 


2. 


(nej.r^) 

ne Indicates numeric constant, variable, or 
expression. 



Figure -9-3, Portraits for Redsniaftstofssftg Specifiers 

Matrices can ba rediifjertslfsffed either implicitly or 
explicitly. To implicitly redimension a matrix, assign a 
new value by using MAT assignment or MAT arithmetic 
operations (described later in this section). To explicitly 
redimension a matrix, append a redimension specifier to 
matrix names in MAT READ or MAT INPUT statements or 
include redimension specifiers in MAT functions (described 
later in this section). Figure 8-4 is an example of 
redimensioning by using MAT READ. The DIM statement 
at line number 00140 is first compiled, and array A is 
dimensioned as 3 times 2. VWien the program is executed, 
MAT READ at line number 00110 redimensions array A to 
I tiinus 5. The second MAT R£A£> statement at line 
number 00150 is not redimensioned by the DIM statment 
because the DIM statement is not executed. 



REDIMENSIONING 

Matrices can be redimensioned to change the number of 
elements in an array as long as the number of elements is 
not (jre-atei fch*rt the total mmfc" erf »i*»rnwit3 originally 
allocated. For example, a 3 times 5 array can be 
redimensioned to 3 times 3 or 5 times 3, but not to 3 times 
6 or 8 times 2. However, the number of dimensions cannot 
be changed. For example, a vector cannot be 
redimensioned to be a 2-dimensional matrix, or a 
2-dimensional matrix cannot be redimensioned to a vector. 

Figure 8-3 shows the formats for the redimensioning 
specifiers. Format 1 is used to redimension a vector. 
Format 2 is used to redimension a 2-dimensional array. In 
both cases, the numeric expressions are rounded to integer 
values. (See MAT arithmetic operations, MAT functions, 
and MAT I/O for examples of redimensioning.) 



MATRIX ARITHMETIC 

Although it is possible to construct programs to perform 
matrix arithmetic operations with the ordinary statements 
of the language, BASIC also provides a seL af statements 
explicitly for matrix operations. Table 8-1 identifies these 
statements and their effects. The matrix arithmetic 
statements are described in the following text in the same 
order as they are presented in table 8-1. 



MATRIX ASSIGNMENT 

Matrix assignment is performed by replacing the elements 
of the matrix on the left side of the equate sign, with the 
corresponding elements of the matrix on the right side of 
the equals sign. Figure 8-5 shows the format for the 
rnafjrSrt asfi'.gnrrsant statement. 



00? 0C 9PT30S 8ASE 1 

00110 RST SEA? Ad, 5) 

00126 bATh 1/2/5,4,5 

00130 «AT PRIST .* 

00140 DIM A<3 / 2) 

00145 REM ARRAY A NOT REDIMENSIONED BY Din A(3,2) 

00147 REN SIXTH DATA ITEM (32) NOT PRINTED 

00150 MAT READ A 

031&O D6TA \'>, 12 ,21 ,2.?. ,31, Si 

00170 PRINT " " 

00180 MAT PRINT A 
08190 $m 



produces: 

1 






12 



21 



22 



31 



Figure 8-4. Redimensioning Example Using MAT READ 
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TABLE 8-1. MATRIX ARITHMETIC STATEMENTS 



Statement 


Example 


Effect 


Matrix assignment 


MAT Ml = M2 


Assigns the elements of M2 to 

ML 


Hatrix add'tioii 


MAT Ml = M2 + M3 


Replaces the elements of Ml 
with the sum of the elements 
of M2 and M3. 


Matrix subtraction 


MAT Ml = M2 - M3 


Replaces the elements of Ml 
with the differences of the 
corresponding elements of 
■':■:■.:■:■ M2 and M3. 


Matrix multiplication 


MAT Ml = M2 * M3 


Replaces each element of Ml 
with the sum of the products 
of M2 and M3. 


Matrix scalar 
multiplication 


MAT Ml = (5) * M2 


Multipl • ■ - ■ - . ■_-- :nt : f 
M2 by 5 and places the prod- 
uct into Ml. 



MAT m-m 

m Indicates numeric matrix identifiers. 



Figure 8-5. Matrix Assignment Statement Format 



To perform matrix assignment, m on the left side of the 
equals sign must contain the same number of dimensions as 
m on the right of the equals sign, and the total number of 
elements of m on the left side of the equals sign must be 
equal to or greater than the total number of elements of m 
on the right of the equals sign. If this is not the case, 
program execution is terminated and the diagnostic 
MATRIX DIMENSION ERROR is displayed. 

Figure 8-6 illustrates matrix assignment. The matrix 
READ statement reads fours into all elements of B, the 
matrix assignment statement at line 40 assigns matrix B to 

v«airi>: A, sew the statement at Mna 58 prints 'Uw values of 
matrix A. 







. ■:■ l □ ". 


OPTION BASE 1 


00110 


MS* AC2,2?,.&(2,2> 


00120 


DATA 4,4,4,4 


00130 


HAT READ B 


00140 


HAT A = B 


00150 


HAT PRINT A 


00160 


END 


produces: 




4 


' ■'■ '.- /'• 4 -\ 0''. : ."■■■ /'. 


4 


:■..■:--.'' .'■'■ ■' 4 .;•; 







.MATRIX ADDITION 

Matrix addition is performed by replacing the elements of 
the matrix on the left side of the equals sign with the sum 

-' the ■ pondinc elcme ' ■' Lhe two mat -•=. nr the 

right side of the equals sign. Matrix addition is only valid 
far numeric; rncl.^tces. Figus 8-7 shows the format for 
rnatriv. addition. 



MAT .. ,-■',- • :••-, 

m Indicates numeric array identifier. 



Figure 8-6. Matrix Assignment Example 



F%we 8-7, Mra-ix Ad4tt»on Forsnat 

V/hsn performing matrix addition, corresponding array 

■ :.- -■ .. ■ ■ • :•- the ." ■ side if the .:■ ig =. t jc 

identical. Matrix mj must have the same number of 
dimensions an m* and my anJ the total nurnhec of 
elements in mi. must be greater than or equal to the 
total number of elements in it^. If the matrices are not 
conformable, program execution is terminated by using a 
diagnostic. Also note that use of an operand as a result of 
a matrix addition operation is legal; for example, 
MAT mi = m2 + mi is permitted. In figure 8-8, 
lines 30 through 60 produce results inentinnl to the resulls 
Of lire 2fi, 



MATWX SUBTRACTION 

Matrix subtraction is performed by replacing the elements 
of the matrix on the left side of the equals sign with the 
difference of the corresponding elements of the two 
matrices on the right side of the equals sign. Figure 8-9 
shown the fomnat for n*atrix suetraoiion. 

When performing matrix subtraction, matrices m2 and 

in 5 must twwe ktenik«? '.Jiinciissions; mj mual have l!«a 
S6T59 number vt f tifrnerwlofta ns m2 *°d PVJJ and the 
total number ul e&rnenU in rnj m««st be greater than or 
eqiw! to the inimber of eicmcnl!; in in?, if thes« 
requirements are not true, program execution terminates 
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and a diagnostic is displayed. Use of an operand as a result 
of a matrix Siuu traction s$ legal j' fox sx*T>p2*' t 
MAT rrij-tni-m? la permitted. 



05 


aff-stm BASE 1 




■ •. 


DIM A(10,10),B<10,10) 


,0(10,10) 


£U 


MAT A*B*C 




30 


FOR 1=1 TO 10 




4 


FOR J=1 TO 10 




50 


LET A<I,J)=B(I,J)+C(I 


.J) 


60 


«6X1 j 




70 


NE X T i 




99 


ENS 






Figure 8-8. Matrix Addition Example 



When performing matrix multiplication, the multiplier and 
multiplicand matrices, m2 and m^ must have 
conformable dimensions in the normal mathematical sense; 
otherwise, program execution is terminated and the 
diagnostic MATRIX DIMENSION ERROR is displayed. 
That is, the column dimension of m? must be the same as 
the row dimension of rrrj. The result matrix, mj, can 
be the astro© matrix m rft«> t« 1*5, 



Figure 8-12 illustrates matrix multiplication. In the 
example, line 40 computes the products of matrices B and 
C and places the sum of the product into matrix A. 
.\> e :.'C prints matrices '-,. B, and C. The equation used In 
compute the first value of 27 in matrix A is as follows: 



B(l,l) » C(l,l) + B(i,2) * C(2,l) = 27 
(1 * 7 ) + (2 * 10 ) = 27 



ft' M "■ : '■". . . 3 

! idii ■■.'■.-■ ■...:.-■■'■. ■■;.•-. ide tifiei 



Figure 8-9. Matrix Subtraction Format 



Figure 8- 10 illustrates matrix subtraction, the instruction 
at line 50 causes each element of matrix C to be replaced 
by the difference of the corresponding elements of 
matrices B and A. Line 60 prints the values for ab three 



10 OPTION BASE 

■> ■■■■* 4 ■■ : , ■■ .- 

30 DATA 1,1,1, 
40 NAT READ A, 
50 NAT C = B - 
60 NAT PRINT B 
70 END 


B(1,3),C(1,3) 
5,5,5 

' A ' c 


produces: . 






5 




5 5 (Matrix B) 


1 




1 1 (Matrix A) 


4 




4 4 (Matrix C) 


>.'-■- :■" ■',. 


Matrix Subtraction Example 



MATRIX MULTIPLICATION 

Matrix multiplication s performed according to the usual 
rules of matrix algebra. Figure 8-11 shows the format for 
matrix multiplication. 



M * T "■ ) " "" ; *f ' i 

m Indicates numeric array identifier. 



05 OPTION BASE 
10 DIN A(3,3), 
ZO DATA 1,2,3, 
30 NAT READ B, 
40 HAT A=B*C 
50 HAT PRINT B 
60 END 


8C3,2),C<2,3> 
4,5,6,7,8,9,10,11,12 

,C,A 




produces: 








iil!8lii;Pliiii 




||^|fl^||^|^pi|Jp||i|P^| 




* 




llfl^i^i(l^l^iBiBS^iii|i58ls 




5 




S^J6i|iiSi^|iiiill 




^SSilll^ll 




W^^^$%^M&M^^0^ 




10 




llllftlll^ 




£1 




30 33 




61 




68 75 




95 




106 117 













figure 8-12. Matrix Multiplication Example 



MATRIX SCALAR MULTIPLICATION 

Matrix scalar multiplication is performed by replacing the 
elements of the matrix on the left side of the equals sign 
with the corresponding elements of the matrix on the right 
side of the equals sign multiplied by a given value. 

Fie :- ■'- ■' :' ■ ws t « fo r int. 

















MAT 


'■ ■ ■■! ! ".Y. . 












tt. 


i dicates ■ 111 eric 


array 


identifier. 






> 


Indicates numeric constant. 


variable 


or 


expression. 

















F |ure -„ " Mati > M 1 I pliial ■■ "■ - ..■ 



Figure 8-13. Scalar Multiplication Format 



• 8-4 
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I igiirfi 8-14 illustrate;} scalar HRiitlpii^atjcn. Lino 50 
ftiultipM e* each clement of rnata-:* A rimes 5 sjid plaeea thf 
result back Into matrix A, 



10 DIM 


AC1 ,1 ) 






20 mr& 4,4,^,4 






30 HAT 


READ A 






40 HAT 


.-■ KIM ■■ 






50 MAT 


A = C51* 


■ 




60 BAT 


- INI '. 






70 END 








jjrwfeces; 








4 




4 




'■;"". ■ ' ■ 4 




4 


(Matrix A) 


20 




?.U 




20 




t -;« 


(Matrix A times 5) 



Figure 8-14. Scalar Multiplication Example 



MATRIX FUNCTIONS 

The ir.nfrh functions CON, IDN, INV, TRNj ZER, and DET 
ore used to manipulate matrices in specific ways. All of 
the matrix functions, except DET, must be used in matrix 

statement.-**. DET' (a ntrnartc function) can he used 
anywhere that a matr»mptir.at function can be uoed. 

f abls S-2 tKitmmflzf.a the mntrix ixirmrjsfis. 



MATRIX CON FUNCTION 

This function causes all elements of the specified matrix to 
be initialized to one. The formats for the matrix CON 
function sppssr in figure 8-15. 





MAT m-CON 


2. 


MAT m=CON(ne) 


.. 


fttl&T w-COUim^.ndjl 




m iwdisiaids numeric trmcti% kfentSfiet, 




ite 'ntilratai a miissrii; tofsstant, tarftble, «r ! 
expression that evaluates to specific 
dimensions. 



Figure 8~-1Ct. Matrix COM Function fortHtt 

Formal I c. the matrix CON lunation retwm a matrix of 
ones with the eas'ne dimension as ?s\s larmafc ? returns a (rs 
times 1) vector; and format 3 returns a (nej times 
ne 2) nv?triv a! tsrsss. 

F ormut'i 2 and 3 of tie matrix CON statement ear. be usi?d 
to redimension the specified matrix m. However, if 
t&dtoeftftijjtitrrj exceeds the «vjnr»tfi? of matrix elements or 
number of dimensions decHisd implicitly in :§j or fey the 
DIM statement, program execution is terminated and the 
diagnostic MATRIX DIMENSION ERROR is displayed. 

Figure 8-16 shows an example of the matrix CON function. 
Line 10 declares storage for a 3 times 3 matrix A. Line 20 
declares that the data table contains nine data values. 
Thesis data values are read into matrix A by the MAT 
READ statement (at lire X!). Ur» 50, the matrix CON 
function, replaces the current matrix values with all ones. 
Both matrH vatses are sfnwn in tte printed output. 



MATRIX i&*4 FUNCTION 

This function causes the specified matrix to be initialized 

to m< kJeiiiity matrix (is matrix n-ortsua-.ing of onus along the 
main diagonal and ^eros olaewherc). The furniat foi the 
matrix IDN statement appears in figure 8-17. 



■ \ -. - • - 



WTRIX FUNCTIONS 



riinction 


Effect 


Usage 


Matrix CON function 


Returns a matrix of ones. 


MAT A = CON 


Matrix IDN function 


Returns *> ' den L ity matrix (a 
square matrix with ones along 
the principal diagonal) and zeros 
throughout the renal til rig matrix. 


MAT A = IDN 


Matrix ZER function 


Returns a matrix of reros. 


MAT C = ZER 


Kjirl* INV function 


Returns the Inverse matrix of 
of the argument matrix (to the 
right of the equals sign). 


MAT A = INV(B) 


Matrix TRN function 


Returns the transpose of the 
arpraarl matrix (to the right 
of the equals sign). 


MAT X = TRN(Y) 


Matrix DET function 


Returns the determinant of the 
argument matrix (to the right 
of the equals sign) or the last 
inverted matrix. 


LET A = DET(B) 
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10 

; ? '■• ■ '■'■;■:■: r -^ v. -'■<■.'■:. "■'. ;v~- ;•'. - : '•"■•';; a o ' 

5U 
60 


■> : n ■-■ .-: , /■ 

DATA 1,2,3,4 

HAT -.'. *:■ «. 

NAT PRINT A 
HAT A=CON 
HAT PRINT A 
END 


,5, 


6, 


7,8,9 






pro luces 




















;|£^ l /0#S^^^ 






2 










3 




^■''# S S' ; §?'?^E':^'&^^ 






5 










6 




S „V > i5 $l>fe3^i "^^'-.(v.", ■ ^ '^1 \ "J-^ ; : '. -JS^ : , ?: sT&^ v 






8 










9 




§i;'^5;^ 






~i 










1 




•SSSSB'^^^S^S^^P- 






||| 










lllfjllj 


(Matrix of ones) 


'9$MM : S0:iMiM$M : ^Mi^Mi' 






||| 










ii§i§ii 





Figure 8-16. Matrix CON Example 



■■ 


MAT m=IDN 


2 


VAT m-IDN(ne) 


3. 


MAT -.* i. ■-..■-,. x/ 




m Indicates numeric matrix identifier. 




■ r Indicates -■ numeric :onstan variable ■.. 
expression that evaluates to desired 



Figure 8-17. Matrix IDN Statement Format 



Format 1 returns an identity matrix with the same 
dimensions as m. Format 2 returns a vector; but, since the 
identity matrix must be square, format 2 is valid only 
if ne=l. Format 3 retains an nej times r«2 identity 
matrix; ne > must equai ncj. 

Formats 2 and 3 of the IDN function can be used to 
redimension the identity matrix m. However, if 
redimensioning exceeds the number of array elements and 
dimensions (originally allocated for m either implicitly or 
in the DIM statement), program execution terminates and 
the diagnostic MATRIX DIMENSION ERROR is displayed. 
Also, the IDN function cannot be used to initialize an array 
that ' nnl square ■• i th : differer mmber of ■ -■ and 
columns). An attempt to initialize a non-square array with 
the IDN function terminates program execution and the 
diagnostic MATRIX DIMENSION ERROR is displayed. 

ricjure B-X0 shows m axsropl© of the nrtatrix ,33N function. 
Line 10 declares storage for a G times 3 matrix A. 

Una 2D <JafcJa»'oe that the rfati table h to contain 12 
values. Th«?se yaksss ©re reaa irrtfi matrix A by the MAT 
READ statement (at line 30). Line 50, the matrix IDN 
function, redimension matrix A to a 3 times 3 matrix and 
causes it to assume the value of an identity matrix. Both 
the original and identity matrix values are shown in the 
printed output. 



MATRIX ZSI FUNCTION 

This function causes the specified matrix to be initialized 
to zeros. The formats for the matrix ZER function are 
presented in figure 8-19. 

Format 1 of the ZER function returns a matrix of zeros 
that have the same dimensions as m. Format 2 returns a 
ne times 1 column vector of zeros. Format 3 returns a 

Formats 2 and 3 of the ZER function can redimension the 
matrix m; however, if redimensioning exceeds the number 
of array elements or dimensions originally declared for m 
either implicitly or in the DIM statement, program 
execution terminates and the diagnostic MATRIX 
DIMENSION ERROR is displayed. 

In the example shown in figure 8-20, the MAT ZER 
function redimensions matrix A from a 2 times 3 matrix to 
a 2 times 2 matrix and causes all elements of the matrix to 
assume the value of zero. Both conditions of matrix A are 
:•:. nyed .- the ; rinto it. 



MATRIX INV FUNCTION 

This fun .■?<:■:: sir : ■:!. : >'■ • rivet ■■ 
: igurc B-21 illustrate! la ormat. 



j nat i> 



Matrix m in figure 8-21 is automatically redimensioned to 
receive the result, if required; however, it must have been 
allocated originally with at least as many elements and 
.-..- tn! or,: . mati .:' the INV hi ■ ■; in. Othe i ■ :■ 

program execution terminates and the diagnostic MATRIX 
DIMENSION ERROR is displayed. Also, matrix m must 
be a square matrix and cannot have more than 100 times 
100 ?lftf«arvt8. 

If the matrix m is singular or near singular, INV returns 
ffwaswxfless results, &i'b3 no disgnostk: Is fe«.ssil« Thu DET 
function (described later) must be used to ensure that the 
results of INV are valid; the results are valid only when the 
value of DET is not zero. 
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10 &J*». A(3,2> 

20 DATA 2,4,6,8,10,12,14,16,18,20,22,24 

3G RAT READ A 

40 HAT PRINT A 

50 HAT A»II>*K2,a) 

60 HAT PS1MT ft 

70 £S» 



produces: 

2 
8 

14 
20 

s-Y: ■<■::$■'':. 
o 





4 

10 
16 
22 



! 




6 

I 3 
24 


U 
1 



(Identify matrix) 



Figure 8-18. Matrix IDN Example 



; 


" ' ' 

MAT m=ZER 


2 


MAT m=ZER(ne) 


3. 


MAT tn-ZERfne-] ne 2 ) 




m Indicates numeric matrix identifier. 




ne Indicates a numeric constant, variable or 
expression that evaluates to desired 
dimensions. 







MAT m -INV(m) 

m Indicates numeric matrix identifier. 



Figure 8-19. Matrix ZER Function Format 



Figure 8-21. Matrix INV Function Format 

Figure 8-22 shows an example of the matrix INV function. 
Line 10 declares storage for matrices A and B. Line 20 
declares the data table of four values. Line 30 reads the 
data table values into matrix A. Line 30, the matrix INV 
function, causes matrix B to be replaced by the inverse of 
matrix A. The printed output displays matrix A, the 
inverse of A, and the inverse times the original matrix. 



10 


Din 


AM, 2) 






20 


DATA 1,2,3,4 


,5 ,6 




30 


HAT 


READ A 






40 


MAT 


PRINT A 






50 


NAT 


A=ZER(1, 


2) 




60 


HAT 


PRINT A 






70 


END 








produces 










I 






Z 


3 


4 






5 


'■.'■ 6 


2 






h 



















MATRIX TRH FUNCTION 

This function causes matrix m to be transposed. The 
matrix TRN function format is presented in figure 8-23. 



Matrix m is redimensioned to receive the result, if 
necessary; however, it must have been originally allocated 
with at least as many dimensions as matrix m (to the right 



Figure 8-20. Matrix ZER Example 



of Vm equals sign;. Otfssrwia©^ program avB&iUon 
terminates and the diagnostic MATRIX DIMENSION 
rdRROR k diupJavod, if desired, m,'en both aids; of the 
rsqunls uqn, can be the same matrix. 



Figure 8-24 shows an example of the matrix TRN 
function. Line 10 declares storage for matrices A and B 

'"jsotft are 2 times 2 matrices}. Line IB cfeciarge that the 
data table contains six values; line 30 reads the values into 
nuttis A. Line 50, the matrix TRN function., causes aaeft 
element of matrix B to be replaced by the transposed form 
of matrix A. 
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10 bin aci,i>,b<i,i> 

20 DATA 5,6,7,8 

30 MAT READ A 

40 HAT PRINT A 

50 NAT B=1NVCA) 

60 IF 0ET=0 THEN 90 

70 MAT PRINT B 

8C MAT ■• -»■»» 

90 MAT PRINT A 

100 •..-; 



produces: 

5 

-* 

3.5 

lllliill? 

lllltilil 



6 

Biii 

3 
-2.5 

jjfSfj 
t 



KIP TC ">..: :• *~ < A IS SINGULAR 



Figure 8-22. Matrix INV Example 



MAT n-TRN :-.• 

m Indicates numeric mstriK identifier. 



Figure 8-23. Matrix TRN Function Format 



MATWX Ofc'T FUNCTION 

The OCT function returns the determinant of a matrix. 
DET can determine if the most recently inverted matrix 
was singular. (See INV function.) ' The format for the OCT 
function appears in figure 8-25. 











1 I H 


A(1,2),B<3,3> 




20 DATA 1,2,3,4 


,5,6 




:■. ** r 


READ A 






40 MAT 


PRINT A 






MA 


B=TRN<A) 






60 MAT 


pr I N i a 






70 END 








produces: 








1 




IKIlilllll 


3 


4 




||||1I||I;|| 


6 


1 




Blllliiill 




2 




>il|Hlllll 




3 




6 

















\ 


DET 


I 


DET(ml i : i§§P$0. \ 




m Indicates numeric matrix identifier. 



Figure 8-25. Matrix DET Function Format 

Mien format •. ?•<■ the DET function if- >:sied, DET returns 
the determinant to the matrix most recently Inverted by 
the ViV function. Ref *?$-£•.!*%. to DFT when INV has not 
:..--: • .-.-•.: causes "■■. irogrart :, terminate, !:■. '.— 
diagnostic DET STE. UNDEFINED is displayed. Repeated 
references to DET, without corresponding references to 
INV, yield the same result each time. When format Z of 
DET Is used, the function returns the determinant of trie 
matrix. An example of the two formats is shown in 
figure B-26, 



MATRIX I/O 



Figure 8-24. Matrix TRN Example 



Matrix I/O statements are used to input or output complete 
intr --. ;' ■-. ■■•: . ■■■■■ ictim of the matri) ■.. .'.;>_;-- 
statemerits can be simulated by using a group of output 
statements, each group of statements relating to only one 
row of the matrix. Matrix input statements can be 
" jlate .- . linq : ..■ reg lar INPI 1 '-ui : ■•' all of thf 
elements of the matrix in the statement input list. 
Tnble ■ 1e tifiusl .•-■ -. rb .' ,- '- ■■.•••.< -r-< 
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TABLE 8-3. MATRIX I/O STATEMENTS 



Statement 


Effect 


Usage 


MAT WRITE 
MAT READ 

MAT INPUT 

MAT PRINT 

MAT PRINT USING 


Writes matrix values to a 

••■■.'•. f11e - . '.'■.■ '..- '■ .-■ v. ' ''■•. ■: ' 

Fills matrices with data from 
an internal data block or 

binary file. 

Fills matrices with data 
input from the terminal or 
from «. file, 

Outputs matrix elements to 
the terminal or a file. 

Outputs matrix elements to 

the teraif'Sl or a file tsar 
the format specified by the 
image statement. 


MAT WRITE #2,A,B$,C 
MAT READ #2,A$,8,C 

MAT INPUT 0$,E,F, 

MAT PRINT A,B$,C 

MAT PRINT USING 100, B 



10 OPTION BASE 1 

20 DIM AC2,2),B(2,2) 

30 DATA 1,2,3,4,10,12,14,16 

40 MAT READ A, 8 

50 MAT A=INV(A) 

60 HAT PRINT A,B 

70 PRINT "DETERMINANT OF A IS 



80 PRINT 
90 END 

pr«fts«ws: 

-2 

1.5 

10 



•;DET 



"DETERMINANT OF B IS ";DET(B) 



1 
-.5 

12 
16 



DETERMINANT OF A IS -2 
DETERMINANT OF B IS -8 



Figure 8-26. Matrix DET Function Example 



MAT WMTE STATEMENT 

This statement is similar to the WRITE statement 
(described in section 7). It causes data from specified 
matrices to be written into a binary file without 
individually referencing each member. Elements are 
written in row order (A(0,0), A(0,1), A(0,2) and so forth). 
Files created by the MAT WRITE statement are in binary 
form and can only be read by the READ or MAT READ 
statement. Figure 8-27 shows the format for the MAT 
WRITE statement. 



MAT WRITE #»«,m t ,!*?;». . . . 

m 1 ,m 2 , . . . Indicates numeric or string matrix identifiers. 

ne Indicates a file ordinal expressed as a 

numeric constant, variable, or expression. 



Figure 8-27. MAT WRITE Statement Format 



When the MAT WH1E statement is used to write stftrajs on 
a filB, one word of binary z>sros fojlovra thd string data to 
indicnte the und of ttw sferlng. Incomplete words are 



Figure 8-28 illustrates the MAT WRITE statement. Line 10 
assigns the file ITEMFIL to ordinal 1, and line 20 declares 
space for a 2 times 4 matrix A. The MAT WRITE 
statement at line 50 causes matrix A to be written on the 
file ITEMFIL, and line 60 closes the file ITEMFIL. Refer 
to figure 8-29 in the MAT READ statement description 
(next topic) for a further illustration of this example. 



'0 FILE .f1 = "IT£?ff It" 

20 DIM A<1,3> 

30 DATA 1,1.1,1.2,1.3,1.4,1.5,1.6,1.7 

40 MAT SEAi) * 

50 MAT WRITE #1 ,A 

SO CLOSE #1 

re am 



F gure - : 28 MAT WRITE Exampk 
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MAT READ m^mg, . 
MAT '■■'<:.-'.■ "-.& . ■■■■ '-_, 
m^ir^. ■ 



Indicates numeric or string matrix identifiers. 
Subscripts denoting new dimensions can 
follow the matrix identifier. 

Indicates numeric constant, variable, or 

Bxpressi .- 



Figure 8-29. MAT READ Statement Format 

MAT READ STATEMB4T 

This statement is similar to the READ statement 
(described in section 7). It allows data to be read into the 
specified matrices without individually referencing each 
member. Elements are read by row from an internal data 
table created by the DATA statement, or from a binary 
file created by the WRITE or MAT WRITE statement. 
Figure 8-29 shows the format for the MAT READ 
statement! 

If an executing MAT READ statement causes the internal 
dotn tebis (format 1) nr binary file (format 2) to b«; 
exhausted before the specified matrix is filled, program 
t^r.-.u-;-?:*-! :v. terminated and tl - -; losti EN . "-" . AT '■ 
or END OF DATA ON FILE is displayed. 

Any matrix in the MAT READ list can be redimensioned by 
specifying a redlmension indicator with the array name. 
(See Redimensioning,, section 8.) For example, MAT READ 
B(3,4) causes values to be read into matrix B and matrix B 
to be redimensioned to a 3 times 4 matrix (assuming array 
base is one). Redimensioning cannot require a greater 
number of total elements or dimensions than originally 
allocated implicitly or in the DIM statement. 

Figure 8-30, an example of the MAT READ statement, is 
an extension of the example shown previously for the MAT 
WRITE statement. Line 10 assigns the file name ITEMFIL 
to ordinal 1. Line 15 restores the file pointer to the 
ucgiminq of the file, and line 2 e res ■: .! times - 
matrix A. The MAT READ statement at line 30 
dynamically redimensions the matrix and reads the matrix 
value* originally written t» the file in the prsvint® MAT 
WRITE example. Line 40 requests a printed output for 
matrix A, and line 30 closes the file rTEMFIL. 



10 FILE 


#1="ITEMFIL" 




I! -:: ; - ?:■>!. '■■ 






20 DIM 


AO,Z) 






33 «*« 


READ #1 , 


AC1,2> 




40 HAT 


PRINT A 






50 CLOSE 01 






60 END 








produces: 








1 




; 1.1 


1.? 


1 .. 3 




1 .4 


1-5 



**A? INPU1 STATEMENT 

The MAT INPUT statement is similar to the BnIPUT 
statement (described in section T>. It permits matrices to 
be read in row order from a display format file or matrices 
to be entered from the terminal during program execution. 
Figure 8-31 shows the format for the MAT INPUT 
statement. 



MAT INPUT m v m 2 . . . . 
MAT INPUT #ne.m 1 ,m 2 , 



Indicates numeric or string matrix identifiers. 
Subscripts denoting new dimensions can 
follow the matrix identifier. 

Indicates numeric constant, variable, or 



Figure 8-30. MAT READ Statement Example 



Figure : "•: MAI NPUT Statement =■ i rial 

When format 1 of MAT INPUT is used and the program is 
running interactively, a question mark is displayed at the 
terminal prompting that the entire matrix be entered in 
row order (A(0,0, A(0,1), A(0,2), and so forth). Each matrix 
eleme ■; lust be separated by .- felimilci -.,*.. ..',- JMTl 
statement in section 7). If all the matrix elements do not 
fit on one input line or the entire matrix is not entered in 

-.v : put response, the natri ■ sments can be entRrei one 
row at a time on separate input lines by terminating each 
partial input reply with a non-blank delimiter. If more 
data values are needed to fill the matrix than are supplied 
and the reply -a not tin riiriat ., ... isinu, .. delimiter, the 
system prints NOT ENOUGH DATA, REENTER OR TYPE 
IN MORE, followed by another question mark. In these 
instances, either reenter the complete matrix or extend 

he :■':..•.-•. ■;:.:. by entering . on-blnnfc elimiter 
followed by the additional matrix elements. Figure 8-32 
illustrates two ways of filling a 2 times 2 matrix of four 
data elements. 

Note that, particularly for string elements, the input line 
can be extended beyond the width entered on the terminal. 
The line feed LF key or i on CDC 713 terminals allows 
line continuation; this key is depressed in place of the 
carriage return key. The total line length is limited to 150 
characters. It is not a delimiter and if a delimiter is 
required between entries on the two lines, insert the proper 
delimiter. 

If an attempt is made to overfill a matrix with too many 
laU e ements, '.he .*v;>'.»s~ ! ■ ■■■. RSla »■ th the message TOC 
MUCH DATA, RETYPE BMPUT) that the entire matrix be 
reentered. 

If format 2 of the MAT INPUT statement is used, the 
matrices are read into the program from the display 
format file specified by ne. The matrix elements are read 
h row order '-'••"".. . ■'• .'.• , -"". . and •-. an), Data :x- the 
; ..- - • . ■■ iisplay format and -■■,*■ have ■.*■;!.-■. -.:■- 
■. =-■:,■ ■. - ■ . slues. 

A matrix can be redimensioned before the items are input 
by specifying a redimension indicator. (See 
Redimensioning in this section.) For example, MAT INPUT 
A$(2,3) redimensions the matrix A$ to a 2 times 3 string 
matrix (assuming array base is one). Redimensioning 
cannot require more than the total number of array 
elements or dimensions than originally allocated to the 
array either implicitly or in the DIM statement. 



• 8-10 



19983900 G 





■ ,-;r f.-.» - 


Matrix 


Filled 


« Ckw input 


Resrwrise 


1 <iO 
110 
120 
130 
140 


OPTION BASE 

.'ft 

MAT INPUT A 

MAT PRINT A 

STOP 


1 








produces: 












? 2,2,2,2 
2 


2 








2 




2 










Second Case - 


Matrix 


Filled 


i- Twi -;j. ■ .- esponse 


1UU 
110 
120 

150 
1 4U 


OPTION BASE 
DIM A(2,2> 
MAT INPUT A 
MAT PRINT A 
STOP 


1 








produces: 












? 2, 

NOT 

? *a 

2 


ENOUGH DATA, REENTER 


OR TYPE 


IN MORE AT 120 


2 




2 









Figure 8-32. MAT INPUT Example 



MAT PRINT STATEMENT 



Hie ■"•■'• ' UNT .- ■-=■- -- : causes ■-....;.-.; Lob ■ ■ .■ .' 
m km order by using the satrw forotattliig j-^Ivs ae for tJw 
standard PRINT or PRINT ffnu statements. The formats 
for the MAT PRINT statement appear in figure 8-33. 



1. «!AT PRINT m 1 d m z . . . d 

2. MAT PRINT #ne, m 1 d m 2 ■ 



indicates numeric or string matrix 
identifier . ' ';. ' ?' ■ > v ;,:; ■ : / ■ ■ \ : : :, \ 

Indicates delimiter (comma or semi- 
coion); the fjtjai delimiter is 

optional . . :'■:>■ ■ '■■;'. ; :< ' ■ ; f •" '.. ■ ;\ v . 

indicutus numeric constant, variable, 
or expression. 



As shown in figure 8-33, the MAT PRINT statement 
formats each element of specified matrix m to the default 
specified output format (shown in PRINT formats, 
section 7), d;r*<"Cs thi output to the terminal for pmtiog 
or tw the file specified by r,e, end poft&ions the print 
mechanism according to the delimiter, d. The delimiter is 
a terminates? character that specifics the print zoning 
control for each element of the matrix. See section 7, 
tsvier Print Zoning, A olsanJc line » autamatically 
generated after each row. An additional blank line is 
printed to separate two arrays in the list. 



Each element of the row is "Checked iwfeftf unntipg fcu 
ensure that it fi*a on the print iUio. ]f it docs not fit, the 
complete element is placed on the next line. If it cannot 
fit on m empty lira, jt, is hrnkws ot the margin and written 
on as many lines as necessary. Matrices are printed in row 
order. The print results can be effected by the terminal, 
IAF, or INTERCOM. (See MARGIN statement.) See the 
MAT READ and MAT INPtJT statements for an example of 
Sh» MAT PRINT statement. 



Figure 8-33. MAT PRINT Statement Format 
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MAT PRINl USING STATEMENT 

This statement is similar to the PRINT USING statement 
(described in section 7). The MAT PRINT USING 
statement causes the matrices to be printed according to 

the imasjR s%m!i«ned m the sfdog expression se or the 
statement at line In. (See figure 8-54.) Each row, as it is 
$>rioted» starts ai the bscpsrsiifg of ih* Image and always 
prints on a new line. Repetition of the image, however, is 
possible within the row. The delimiter appearing after the 
- --'! ' i. ;.-.'•.: titprmines the rteiir : :-\ v. ■ ■ ... ■ 
between each element of the matrix, but not between 
rows. As in the PRINT USING statement (section 6), the 
.-...-■>'■■ s .;■ ■...;-..- - int ioninq, bul do i . 

whether or -■'. -: .. il itcn rt eatinc :.he ■<*■.:■' should 
start a new line (,) or continue on the same line (;). 



A blank fine is not printed after each row or after the last 
line of the array. A blank line is printed to separate two 
arrays in the list. If ail the elements of a row do not fit on 
i ■ .". K.> ■'. ■ =.-. .; i- .>■'-.■ --''- ■ :•-'- "': sr I -* i: f-...' »\ -■ ' ; 
this is in the middle of an element. Figure 8-35 shows 
three program examples of the MAT PRINT USB'JG 
statempnt. 



1. MAT PRINT USING In, m 1 d m 2 d . . . d 


MAT PRINT USING ne. m-, d n» 2 d . . . d 


2. MAT PRINT #ne, USING In, m 1 d n> 2 d . . . d 


MAT PRINT #ne USING ne. n> 1 d m 2 d . . . d 


m*,mo - 


Indicates numeric or string matrix 
identifiers. 


d 


Indicates delimiter (comma or semi- 

• .: ■• . ■ '.:.■ * :-■_' ■.■■■> ,.- itei s 
optional. 


ne 


Indicates numeric constant, variable. 




oi .. tpressi .". 


In 


wcltr.stfs Urns m.-:r.!jar. 


ne 


Indicates string expression. 







figure 8-34. MAT PRINT USING Statement Format 









=. 


fclMWiBil 








.v."- : 0*a 


i^^i^hiiBHpi^^H^^S^^^H^^^s^^toi^ft^M^BHB 




IBsliiillpliM. 


FILE 


mff^Sml^^^^^^^^^^^m^^W^^^^^^w^m^^^^i 




110 


BIH 


^^^ms^&^^^^^^^^^^^^^^^^^^^^^^^^^A 




iao 


DATA 1,2,3,* 




130 


HAT 


^m^m^^^^^^^^^^^^^w^^^^^^^^^^^^^^^^^F 




1AC 


• ■■ T 


^^^^^^^Kf^^m^^^^m^^^^^^^^^^^^^M^ 




150 


*-. • 


WRITE #1 , A 




160 


RESTORE #1 




170 


MAT 


READ«1,B 




180 


»,- 


PRINT USING 190, B 




190 


; *t 


^^^^^^^S?j^^^^^^^^^^^^^^^^^^^^^^^^^S 




200 


END 






.■<"-. .J; >"<&. 








SlHpl!ill|^ 


1 


lilljlp^^^^ 




ROW 


i 


^^^^^^^^^^^^^^S^^^^^K^KS^^^^^^^^^^w 




iiSifSiiPSit' 

2 








• . : X 








4 












Figure 8-35. MAT PRINT USING Statement Example {Sheet 1 of 2) 
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2. 






090 


OPTION BASE 1 


100 


DIM 


a (3, 3) .-. ■ • ■ ,' ■: •..:■•'•' ; '■ 


1 1 


FOR 


1=1 TO 3 


120 


FOR 


J=1 TO 3 


5C 


ft (I , 


J>=I*J 


1*0 


NEXT 


.■'•j;- : : " ' : -' : : r ■''.■:'■■! '■'■'■■'■.■'■''.-■'■-■ 


150 


NEXT 


'.■■I'- ■•'■■' 


160 


MAT 


PRIST USING " ## ",A; 


170 


MAT 


PRINT USING " ## ",A 


produces: 






1 


2 


SiffisSHS^ 


I 


4 


■;KiKSfl^ 


3 


6 


:. ; ! : : ':9-- ;vy : : ..' : -';. : ---:. ; : v : : ; - ■■ : .\' : :-''': : ■■:•: :-: x ';:;'. •>;="' :■: ■': :-■.;' y 


1 






?. 






* 






V ' :: : ; .' ; -. ; "' ? 






■■,-.'■:'''•.'.'!•. 4 






6 






3 






.'•:"■'■;•'■'.'■:-■:•..■ 6 






9 







3. 



3S0 ePT15M SftSS t 
98 M-miH 70 
100 DIM ASC2,2> 
128 SAT I^PUT A* 
125 MAT PRINT AS; 
133 KARfilg 30 

140 mat mtm a*; 

150 tfASSIM TO 

1*0 HAT ?RIMT USlfiS 170, A*; 

170 : Hnntitt#tinttnnttttittttt)tu#tt#uttuttniii>utt#tnittuuutittt) 



produces 



? "c*j«mutati^e rings and Irtlfsgrsl donaf rts'V" sleaentary erop«rt<e* of domains' 

ssr £»e«s« bats, rce uter as type .in woke si 120 

? ,"well ordered principle"," finite induction and taws of exponents" 
COMMUTATIVE RIN6S AND INTEGRAL DOMAINS 
ELEMENTARY PROPERTIES OF DOMAINS 

WFLL 8RBE8E& PPJMCIPLE ? SMITE imUttim km LAWS OF EXPONENTS 



COMMUTATIVE RINGS AND INTEGRAL 

bom im 

E EMENTAR I ■ ROPE STIES )F .'■ MA 

WELL ORDERED PRINCIPLE 

FINITE INDUCTION AND LAWS OF 
EXPONENTS 



COHHUTATIV6 *IJ»SS ftKI* ISTESRAL 30,*!ftl88: 
MAIMS 

WELL ORDERED PRINCIPLE 
f EXPOSSMTS 



£l.£«EN7*RY PROPERTIES 0* #0 : 
FISITE INDUCTION. <*RfJ kft« 



Ptaure §-35, »AT PRSttT U3MQ Stestemsnt £x,a*»j»te {a» 2 of 2) ' 
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DEBUGGING 



Often newly written programs do not operate correctly on 
the first attempt to execute them. They either stop with a 
run-time diagnostic (such as SUBSCRIPT ERROR AT 230) 
or the programs run to completion, but produce incorrect 
results. The process of isolating and removing errors or 
bugs in a program is referred to as debugging. 

BASIC itself provides some tools to help debug a program 
(PRINT statements and tracing). In addition, a companion 
product, CYBER Interactive Debug (CID), provides a 
powerful interactive debug facility. The choice of 
particular tools to use is determined by personal 
preference, mode of operation (batch or interactive), and 
availability. CID is the most powerful and easy-to-use 
tool; however, it is not always available in the system. 

BASIC DEBUG FEATURES 

Three debugging aids or techniques that are available in 
BASIC are: inserting PRINT statements, conditional 
tracing of program flow, and unconditional tracing. 



INSERTING PRINT STATEMENTS 

A common debugging technique is to temporarily insert 
PRINT statements in a program. Output from these PRINT 
statements can indicate program control flow (what order 
statements are executed) and values of selected program 
variables at specific points in the program. However, 
these PRINT statements must be removed once the 
program is debugged and making any changes to the 
program (even relatively minor changes, such as removing 
temporary PRINT statements) provides the opportunity for 
introducing new errors. Refer to section 7 for the format 
and examples of the PRINT statement. 



CONDITIONAL TRACE STATEMENT 

BASIC provides a special REM statement to control tracing 
of program flow. This ststei'iml is a remark th<Jt ha* n.-> 
effect on the program unless the DL (Debug Lines) option 
of the DB parameter is selected when the program is 
aompijed* (See DB parameter in section 12.) When the DL 
option is selected, this statement starts and stops the 
program trace mechanism. This trace mechanism prints a 
sequential list of the BASIC statements executed in the 
order the statements were executed. This information can 
be used to determine the actual flow of control through the 
program. The formats of this conditional trace statement 
are shown in figure 9-1. 



1. 


REM TRACE.ALL 


2 


REM TRACE.PART 


s. 


REM TRACE.NONE 



Figure 9-1. REM TRACE Statement Format 

The first format is REM TRACE.ALL. This format causes 
dynamic tracing (all executable statements are traced 



regardless of where they occur in the source code). The 
second format is REM TRACE, PART. This format causes 
static tracing (only those statements within the specified 
range of line numbers are traced). The third format is 
REM TRACE,NONE. This format suppresses tracing; it is 
the default setting for the REM TRACE statement. 

The following two points further explain the use of these 
statements: 

• REM TRACE,ALL causes the message * AT nnn to be 
output for every statement executed until a REM 
TRACE.NONE statement is executed (nnn is the line 
number). 

• ■ REM TRACE.PART causes the message * AT nnn to 

be output only for those statements lying physically 
between the REM TRACE.PART statement and the 
next sequential REM TRACE.NONE statement. 
Execution of statements outside this physical range 
(for example, those executed with GOTO, GOSUB and 
function references) are not traced. The GOTO, 
GOSUB, and function reference statements do not 
cause tracing to be turned off; tracing resumes when 
control returns to statements within the physical 
range. 

Although the REM TRACE statement does not provide 
information about program variable values (an advantage 
to using the PRINT statement), the REM TRACE 
statement has the advantage of not needing to be removed 
from the program once the tracing is complete. 

Figure 9-2 shows an example of REM TRACE, ALL. 
Execution of the statements in this example produces a 
sequence list of all the executable statements in the order 
they were executed. Figure 9-3 shows an example using all 
three REM TRACE statements. 



150 REM TRACE,ALL 

160 FOR X=1 TO 10 

170 LET X=X+1 

180 NEXT X 



produces: 



* AT 160 

* AT 170 

* AT 180 

* AT 160 



Figure 9-2. REM TRACE.ALL Example 
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00200 


RE* TRACE. PART 




00210 


I»l 




00220 


PRINT TA3(51;I 




00230 


REN TRACE.NCNE 




002*0 


REW TRACE.ALL 




00250 


T»J*S 




00260 


GOSUB 320 




00270 


RE* LIST. ALL 




00280 


I"4 




00290 


RE* TRACE.NONE 




00*00 


STOP 




00310 


J«I 




00320 


PRINT TAB(5)*J- 


*;J 


00 330 


RETURN 




00340 


ENO 




produces: 






♦ AT 


210 




* »T 


220 




1 






* AT 


250 




* AT 


260 




* AT 


320 




J» 







♦ AT 


330 




* AT 


280 




* AT 


300 





Figure 9-3. REM TRACE Statement Example 



UNCONDITIONAL TRACE PARAMETER 

In addition to the conditional trace statements that can be 
included within the program, BASIC provides a parameter 
on the BASIC control statement that can be used to force 
program flow tracing to be printed no matter what 
statements are included in the program. 

If the TR (trace) option of the DB parameter is selected on 
the BASIC control statement when the program is 
compiled, the message * AT nm is output for each 
executable line encountered during program execution. 
The nnn represents the line number of the executed 
statement. 

This debug feature does not require program modifications, 
not even insertion of REM TRACE statements. However, 
only a full trace of the entire program can be obtained. 



CYBER INTERACTIVE DEBUG 

The CYBER Interactive Debug (CID) facility is a 
companion to BASIC debug features. CID permits external 
monitoring and controlling of the execution of the program 
from an interactive terminal without making any changes 
to the program. The CID commands and features are only 
available if CID is installed in the system. Fundamental 
features of CID are listed below. For further information, 
refer to the CYBER Interactive Debug reference manual. 

The CID facility allows the following to be done: 

• Suspend program execution when control reaches a 
predefined point (called a breakpoint). 

• Suspend program execution when a particular event 
occurs, such as a store into a specific variable, or a 
program termination (called a trap). 



Display and/or change the values of program variables 
while program execution is suspended. 

Restart program execution at the point of interruption 
or at some other point in the program. 



REFERENCING BASIC LINE NUMBERS 
AND VARIABLES 

VARIABLES 

Program variables are referenced in CID commands in the 
same format as they are in BASIC statements. Simple and 
subscripted variables, full arrays, and substring addressing 
can be referenced. V ariables referenced in CID commands 
must exist in the program; and execution must be 
suspended inside a function before formal parameters are 
known to CID. 

Examples: 

A 

Al$ 
X$(2:4) 
X(l) 



LINE NUMBERS 

Line numbers for CID commands are referenced with a 
special format not similar to BASIC. This format is shown 
in figure 9-4. 



L.ln 



In 



Indicates line number. 



Figure 9-4. Line Number Referencing Format 

Example: 

L.310 

An exception to this format is the GOTO commands, which 
is referenced in the same format as it is in BASIC 
statements. (See figure 9-5.) 



GOTO In 

In Indicates line number. 



Figure 9-5. GOTO Statement for CID Format 

Example: 

GOTO 310 

RESUMING PROGRAM EXECUTION 

The two CID commands, GO and GOTO, can be used to 
resume the execution of a program. These two commands 
are explained in the following paragraphs. 
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GO COMMAND 

The GO command resumes program execution from the 
point at which the program suspended execution. The 
format for this command is: 

GO 

When the GO command is entered, the program resumes 
execution from the last point of suspension and executes 
until it reaches a breakpoint or trap. The GO command 
cannot be used after an END trap because execution is 
complete and cannot continue any farther. 



GOTO COMMAND 

The GOTO command resumes execution of the program at 
a specified line number. This command is in the same 
format as the BASIC statement GOTO. (See figure 9-6.) 



GOTO In 

In 



Indicates line number. 



Figure 9-6. GOTO Command for CID Format 

Example: 

GOTO 50 

The GOTO command causes program execution to continue 
at the specified statement line number 50. Execution 
proceeds until the program reaches a breakpoint or trap. 

SETTING AND CLEARING 
BREAKPOINTS AND TRAPS 

The following commands allow specific breakpoints and 
traps to be set or cleared in the BASIC program. A 
breakpoint is a point within a program at which CID takes 
control. When program execution reaches a breakpoint, 
execution is suspended, a message is issued, and CID 
requests input of commands by displaying a question mark. 
Any number of commands can be entered once CID gains 
control. A breakpoint is set by using the SET 
BREAKPOINT command and cleared by using the CLEAR 
BREAKPOINT command. 

Traps are set to cause program suspension on the 
occurrence of a particular event. Traps are set by using 
the SET TRAP command and are cleared by using the 
CLEAR TRAP command. 

SET BREAKPOINT COMMAND 

The SET BREAKPOINT command sets a breakpoint at a 
specific program line number. The format for this 
command is shown in figure 9-7. 

Examples: 

SET BREAKPOINT, L.120 
SB, L.150 

A breakpoint remains set until it is explicitly cleared. 
Figure 9-8 shows the format of the breakpoint message 
displayed when the program reaches a breakpoint during 
execution. 



SET BREAKPOINT,L.ln 






or 




SB.L.In 






In 


Indicates line 


number. 



Figure 9-7. SET BREAKPOINT Command Format 



*B #n,AT 


L.ln 


n 


Indicates identifying ordinal for the 
breakpoint. 


In 


Indicates line number or point in the 
program where the breakpoint is set. 



Figure 9-8. Breakpoint Message Format 
Example: 

*B #1, AT L.110 

CLEAR BREAKPOINT COMMAND 

The CLEAR BREAKPOINT command clears a breakpoint 
that exists at a specific line number. Figure 9-9 illustrates 
the format for this command. 



CLEAR BREAKPOINT,L.ln 



or 



CB,L.n 
In 



Indicates line number or point at which 
the breakpoint is set. 



Figure 9-9. CLEAR BREAKPOINT Command Format 



Examples: 



CLEAR BREAKPOINT, L. 

CB, L.150 

CB,* 



120 



The last example clears all of the breakpoints. Breakpoints 
can also be cleared by referring to the identification 
number, such as CB, #1. Refer to the CYBER Interactive 
Debug reference manual for more details. 



SET TRAP COMMAND 

Wnen a trap event occurs, program execution is suspended, 
a message is issued, and CID requests commands. Any 
number of commands can be entered once CID is in 
control. The SET TRAP command is used to set a trap of a 
specified type for a specified range of applicability. 
Figure 9-10 illustrates the format for the SET TRAP 
command. Examples of this command are shown in 
figure 9-11. 
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SET TRAP,type,scope 




or 






ST,type,scope 






type 


Indicates 
tion that 


keyword describing the condi- 
causes the trap. 


scope 


Indicates 


range of applicability. 



Figure 9-10. SET TRAP Command Format 



SET TRAP,ST0RE,A(4,7) 



ST,LINE,L.100...L.200 



Trap occurs after any 
STORE in variable 
A(4,7). 

Trap occurs before any 
line in the range of 100 
to 200 is executed. 



Figure 9-11. SET TRAP Command Examples 

There are many forms of the keyword type used in the trap 
commands. Refer to the CYBER Interactive Debug 
reference manual for a complete list. Two important types 
are STORE and LINE. 

STORE traps can catch stores into any variable or range of 
variables; however, BASIC string pointers are sometimes 
manipulated without affecting the string to which they 
point, so extraneous STORE traps can occur for string 
variables. The source statement should be inspected to 
verify that the named string variable is actually being 
referenced. 



LINE traps cause a trap prior to execution of each 
statement in the specified range. For instance, in the 
second example of figure 9-11, a trap occurs at any 
statement from line 100 to line 200 so this type of trap 
enables program flow to be traced in a specific area. 
Figure 9-12 shows the format for the trap message. 



*T #n,type AT In 


n 


Indicates identification ordinal for this 
trap. 


type 


Describes briefly the condition that 
caused the trap. 


In 


Indicates line in the program where 
execution was suspended. If IN, 
rather than AT, is specified, then 
execution is suspended inside, not 
before the indicated line. 



Figure 9-12. Trap Message Format 

CLEAR TRAP COMMAND 

The CLEAR TRAP command clears specific traps. The 
format for this command is shown in figure 9-13. 



CLEAR TRAP,type,scope 
or 



CT .type .scope 
type.scope 



Type and scope must be the same 
those used when setting the trap. 



Figure 9-13. CLEAR TRAP Command Format 



Examples: 



CLEAR TRAP, LINE L.100 . 
CT, STORE A(4,7) 



.L.200 



Traps can also be cleared by referring to the identification 
number, such as CT, #1 or by clearing all traps at once, 
CT,*. Refer to the CYBER Interactive Debug reference 
manual for more details. 



DEFAULT TRAPS 

Three traps are on by default and cannot be cleared: END, 
ABORT, and INTERRUPT. The END trap occurs whenever 
the BASIC program reaches normal completion, which 
occurs when a STOP, END, or CHAIN statement is 
executed. Program execution can be resumed at a specific 
line with the GOTO In command; the GO command cannot 
be used because the program has completed and cannot 
continue from these traps. 

The END trap for the CHAIN statement causes execution 
to end at the point just before the next chained-to program 
is executed. Compilation and execution of the chained-to 
program is not automatic; enter the QUIT command in 
order to terminate the present CID session, then enter any 
necessary control statements in order to compile and 
execute the chained-to program. 

The ABORT trap occurs whenever the BASIC program 
terminates because of an error. If the program executes 
an ON ERROR statement before the trap occurs, a GO 
command causes execution to resume at the ON ERROR 
line. If the program does not execute an ON ERROR, 
execution cannot be resumed with a GO command; 
however, it can be resumed with the GOTO In command. 
Note that the ABORT trap does not occur for interactive 
input errors and the normal BASIC recovery options still 
apply. 

The INTERRUPT trap occurs whenever the BASIC program 
is interrupted from the terminal. If ON ATTENTION is in 
effect, that is, if the program executes an ON ATTENTION 
statement before the interrupt is trapped, GO causes the 
program to begin executing at the ON ATTENTION line. If 
ON ATTENTION is not in effect, GO causes execution to 
resume at the point where it was interrupted. The 
command GOTO In can be used to cause execution to 
restart at a particular line. 



DISPLAYING PROGRAM VALUES 

Three of the commands that allow program values in the 
BASIC program to be displayed are PRINT, MAT PRINT, 
and LIST VALUES. The first two commands are similar to 
BASIC statements. 
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PRINT COMMAND FOR CID 



UST VALUES COMMAND 



The PRINT command is similar to the BASIC PRINT 
statement. It prints values of program variables or 
computed expressions. Figure 9-14 illustrates the format 
for the PRINT command. 



PRINT I/O list 
I/O list 


List of any number of restricted 
arithmetic or string expressions; 
separated by commas or 
semicolons. 



Figure 9-14. PRINT Command for CID Format 



Examples: 



PRINT "THE VALUE OF B=";B 
PRINT A,A*A,A+135,7,B(17,J) 
Print C$(l)(2:3) 



Variables used in the I/O list must exist in the program. 
Multiple semicolons must be used to separate the PRINT 
command from the next command on the same line (also 
true for the MAT PRINT command). Expressions cannot 
contain references to functions or to the exponentiation 
operator. CID does not allow partial print lines. The 
trailing comma or semicolon is ignored in CID. Images, 
PRINT USING statements, and file ordinals cannot be used 
in CID. 



MAT PRINT COMMAND FOR CID 

The MAT PRINT command is similar to the BASIC MAT 
PRINT statement. It prints complete 1- or 2-dimensional 
arrays. The format for this command is illustrated in 
figure 9-15. 



MAT PRINT 
array list 


array 


list 

List of one 
dimensional 
commas or 


or more of 1- or 2- 
arrays; separated by 
semicolons. 



Figure 9-15. MAT PRINT Command for CID Format 
Examples: 

MAT PRINT A,B 
MAT PRINT Xl$ 



Arrays listed in the array list must exist in the BASIC 
program. Elements of the array are printed in row order 
with spacing between items controlled by the comma or 
semicolons (as with the PRINT command). A blank line is 
output after each row and an extra blank line is output 
between matrices. The MAT PRINT command is separated 
from the next command on the same line by using two 
semicolons (as with the PRINT command). 



The LIST VALUES command lists values of all variables 
within the program. The format for this command is shown 
in figure 9-16. 



LIST VALUES 

or 
LV 



Figure 9-16. LIST VALUES Command 

The names and values of all variables, including arrays, are 
listed in alphabetical order. Formal arguments of 
user-defined functions are listed only if program execution 
was suspended inside and while executing the function DEF. 



CHANGING AND TESTING 
PROGRAM VALUES 

Two commands that can be used to change and test 
program values are the LET command and the IF 
command. These commands are similar to the BASIC 
statements. 



LET COMMAND FOR CID 

The LET command is similar to the BASIC LET statement. 
It assigns values to program variables. The command can 
be used with simple and subscripted variables and 
substrings. Figure 9-17 illustrates the format of the LET 
command for CID. 



LET nv=ne 




nv 


Indicates numeric variable. 


ne 


Indicates restricted arithmetic expression. 


or 




LET sv=se 




sv 


Indicates string variable. 


se 


Indicates restricted string expression. 



Figure 9-17. LET Command for CID Format 

Examples: 

LET A=A+45 

LET B$(3,2)=A$ + "ABC" 
LET D$(3:6)="DEFG" 
LET F$(1X4:6)="" 

The variables referenced must exist in the BASIC program 
being debugged. Multiple assignments, references to 
functions, and use of the exponentiation operator are not 
allowed; all other arithmetic operators (+, -, *, and /) and 
the string concatenation operator can be used in the 
expressions. 
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IF COMMAND FOR CID 

The IF command is similar to the BASIC IF statement. It 
controls the selection of CID commands based on a 
comparison of program variables or computed values. 
Refer to the CYBER Interactive Debug reference manual 
for further uses of the IF command in debug mode. 
Figure 9-18 shows the format for the IF command for CID. 



OTHER COMMANDS AND FEATURES 

There are many other CID features and commands. The 
following is a list of some features and commands not 
explained in this section: 

• Sets of CID commands can be predefined to 
automatically occur when a breakpoint or trap 
occurs. 



IF re 


THEN 


db 


re 




Indicates any BASIC relational expres- 
sion; variables must exist in BASIC 
program being debugged. 


db 




Indicates any CID or BASIC debugging 
command. 



Figure 9-18. IF Command for CID Format 

The following is an example of the W command: 
IF A < = B THEN PRINT A 



• Set breakpoints can be predefined to occur every 
n tn time through a loop. 

• Save on a file or read from a file can be 
predefined to occur at any breakpoint or trap 
definition. 

• Suspend debug sessions can be predefined so that 
an operating system command can be issued. 

• Other commands include HELP, LIST 
BREAKPOINTS, and LIST TRAPS. 

CID can be used in ASCII mode only under NOG. CID can 
be used in normal mode under NOS and NOS/BE. Refer to 
the CYBER Interactive Debug reference manual for 
further information regarding CID commands and features. 
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NOS is the Network Operating System for CDC's 
CYBER 170, CYBER 70, and 6000 Series computer 
systems. NOS provides BASIC users with both a batch and 
an interactive processing environment. BASIC can be 
accessed from a remote time-sharing terminal, such as a 
Teletype Model 33 or Model 35 teletypewriter (TTY), or a 
CDC Model 713 CRT terminal. 



When accessing NOS from a remote terminal, BASIC 
programs can be entered and executed by using either the 
BASIC subsystem or BATCH subsystem when under the 
NOS Interactive Facility (IAF). Also, data files created 
under NOS can be built at the terminal through use of 
TEXT mode, Text Editor, or XEDIT. 



This section illustrates the use of the BASIC and BATCH 
subsystems, a method of creating data files at a terminal, 
and some tips on using the line editor when writing 
programs at a TTY or CRT terminal. 



For a detailed description of 713 CRT and Model 33 or 
Model 35 TTY terminal usage, see the Networks 
Interactive Facility reference manual or the NOS 
Time-Sharing reference manual. For a detailed description 
of Text Editor or XEDIT usage, see the Text Editor 
reference manual or the XEDIT reference manual. 



ENTERING A PROGRAM 

The process for interactively entering a program into a file 
is shown in the examples that follow. To correct an 
existing syntax, semantic, or logic error, enter the line 
number that contains the error, type in the corrected line, 
and press the carriage return key. To delete a line, enter 
the line number and press the carriage return key. To 
correct an error while typing a line, backspace n 
characters by pressing the backspace key or by holding 
down the control key and pressing H once for each 
incorrect character; then type the correct information. 
For additional control key information, refer to the NOS 
Network Products Interactive Facility reference manual, 
the NOS Time-Sharing User's reference manual, and the 
operator's guide for a specific terminal. 



For a detailed description of the NOS commands used in 
figure 10-1 and other available commands, see the 
Networks Interactive Facility reference manual or the NOS 
Time-Sharing User's reference manual. In figure 10-1, the 
program is saved as a file named EX4. The program in this 
file is now stored as an indirect-access permanent file that 
can later be accessed by use of the OLD command. (See 
figure 10-2. Responses entered are underlined.) 



Use the REPLACE command to store the changed program; 
this replaces the old program with the corrected program. 
For example, the following command stores an updated 
program in file EX4: 

REPLACE.EX4 

The updated file EX4 is lost if the session is logged off 
before storing the corrected version. 



BATCH SUBSYSTEM 

The batch subsystem provides batch control statement 
capability from the terminal. It enables control 
statements to be typed at the terminal; otherwise, control 
statements must be entered through a card reader at the 
central site or must be entered from a remote batch 
terminal that calls the statements from a procedure file or 
includes the statements in a submitted job. 



BASIC can be run interactively in the batch subsystem. 
The BASIC control statement in the form X, BASIC is 
issued to call the BASIC compiler. All options of the 
BASIC control statement described in the section on Batch 
Operations are available when BASIC is run interactively in 
the batch subsystem. 



The program contained in file SUM (figure 10-3) was 
written during a previous terminal session, while in the 
BASIC subsystem, and saved with the SAVE command. 
The BATCH command requests the batch subsystem, and 
the X, BASIC (I=SUM) command requests the execution of 
the program found in file SUM. 



BASIC SUBSYSTEM 

When in the BASIC subsystem under IAF (or TELEX), a 
BASIC program can be written at a TTY or CRT terminal, 
and the program can be edited or executed interactively. 
The program in figure 10-1 was created and run at a 
terminal under IAF and the BASIC subsystem. Responses 
entered are in lowercase; the carriage return key is pressed 
after typing in each response. 



Each data file was saved under its respective name and 
later converted to local files, accessible by program TEXT, 
through use of the GET statement. To terminate TEXT 
Mode, press the interrupt key: the INT, INTRPT, BREAK, 
or ETX character (CONTROL-C) key. (These are the 
TEXT Mode terminators for time-sharing on an ASCII code 
terminal.) For additional control key information, refer to 
the Network Products Interactive Facility reference 
manual, NOS Time-Sharing User's reference manual, and 
the operator's guide for a specific terminal. 
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80/05/28. 17.12.07. TM1021 

(22) SVL SN112 NOS. 

FAMILY: ,abs0455 ,pubs, i af 

TERMINAL: 35, NAMIAF 

RECOVER/ CHARGE: charge ,591 2,693a41 2 

$CHARGE,5912,693A412. 

/basi c -*- 



N0S1-1D176/R6B. 



- Login to the IAF (NOS) System. See section 1. 



OLD, NEW, OR LIB FILE: neu,ex4 -*- 

READY. 
10 print "type a number" 
20 input x 
25 Let f = 1 
30 for i=1 to x 
40 Let f=f*i 

50 print "factorial ";x"is ";f 
60 goto 10 
70 end 
Lnh -■ 



10 PRINT "TYPE A NUMBER" 

20 INPUT X 

25 LET F=1 

30 FOR 1=1 TO X 

40 LET F=F*I 

50 PRINT "FACTORIAL ";X"IS ";F 

60 GOTO 10 

70 END 

READY. 

run -m 



80/05/28. 17.18.25. 
PROGRAM EX4 

FOR WITHOUT NEXT AT 30- 
BASIC COMPILATION ERRORS 

RUN COMPLETE. 
45 next i ~m 



24 if x=0 then 70 

run -* 



80/05/28. 17.19.34. 
PROGRAM EX4 

TYPE A NUMBER 

? 3 

FACTORIAL 3 IS 6-. 

TYPE A NUMBER 

? 0— 



RUN COMPLETE, 
list-. 



80/05/28. 17.19.51. 
PROGRAM EX4 

10 PRINT "TYPE A NUMBER" 
20 INPUT X 

24 IF X=0 THEN 70 

25 LET F=1 

30 FOR 1=1 TO X 

40 LET F=F*I 

45 NEXT I 

50 PRINT "FACTORIAL ";X"IS ";F 

60 GOTO 10 

70 END 

READY. 
save,ex4-* 



READY. 



Request BASIC subystem. 

Enter program in a NEW file (ex4). 



. List file without header. 



' Compile and Execute. 

• Diagnostic issued. 

Add statements to correct program. 
■ Compile and execute again. 



-Input 3 as value for x. 

-Enter and program terminates at line 80. 

- List file with header. 



-Save program with file name ex4. 



Figure 10-1. BASIC Subsystem Under NOS 
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0LD»EX4 

READY. 
LIST 

75/05/13. 08.24.34. 
PROGRAM EX4 

10 PRINT "TYPE A NUMBER" 

20 INPUT X 

25 IF X»0 THEN 80 

30 LET F=l 

40 FOR 1=1 TB X 

50 LET F=F*I 

55 NEXT I 

60 PRINT "FACTORIAL "JXI"IS "JF 

70 G0T0 10 

80 END 

READY. 

At this time, you can add, delete, or change program statements. 



RNH -*- 



TYPE A NUMBER 
? 6^ 

FACTORIAL 6 IS 
TYPE A NUMBER 
? 



720 — 



Compiles and executes with no 
header. 



Inputs 6 as value for x. 



SRU 



0-107 UNTS. 



RUN COMPLETE. 
BYE ^ 



Logs off. 



GRD2320 
GRD2320 



LOG OFF 
SRU 



08.25.39. 
1 .000 UNTS. 



Figure 10-2. OLD Command Under NOS 
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1 


batch 


1 


$RFL,0. 


1 


/get , sum 


1 


/ I i st ,f = sum 




05 REM SUMMATION OF FIRST N INTEGERS 




07 REM VALUE OF N SUPPLIED AT EXECUTION 




10 INPUT N 




20 PRINT TAB(2);"INTEGERS","SUM" 




30 LET S=0 




40 FOR 1=1 TO N 




50 LET S=S+I 




70 PRINT TAB(5);I,S 




80 NEXT I 




90 END 




EOI ENCOUNTERED. 




/rewind, sum 




$REWIND,SUM. 




In. ,basi c ( i = sum) 




? 10 




INTEGERS SUM 




1 1 




2 3 




3 6 




4 10 




5 15 




6 21 




7 28 




8 36 




9 45 




10 55 


Figure 10-3. Program Run Interactively Under Batch 




Subsystem 



For a complete description of the TEXT command, see the 
NOS Time-Sharing User's reference manual. For a 
complete description of Text Editor or XEDIT commands, 
see the Text Editor reference manual or the XEDIT 
reference manual. For additional file handling 
information, see appendix D. 



USING DATA FILES 

Figure 10-4 illustrates the creation of a data file used by a 
BASIC program. To create a data file under NOS, specify 
the name of the new file and enter the TEXT command. 
The TEXT command permits the file to be created without 
sequence numbers. If, after the file is created, 
corrections, additions, or deletions are required, enter 
EDIT or XEDIT and use Text Editor or XEDIT commands. 
In figure 10-4, the program reads a data base file and 
update file, calculates a new charge account balance, and 
prints an updated statement. Both data files were created 
by entering the TEXT command and by inserting the data 
line by line. Each line ends by pressing the carriage return 
key after the system message ENTER TEXT MODE. 



RENUMBERING BASIC LINES 

In the BASIC subsystem, the RESEQ command resequences 
BASIC programs and automatically updates all line 
references. The format of the RESEQ command is shown 
in figure 10-5, and an example of this command is 
illustrated in figure 10-6. 

For additional information, see the NOS Time-Sharing 
User's reference manual and the Network Products 
Interactive Facility reference manual. 



new,c I ient -»_ 



READY, 
text 
ENTER TEXT MODE. 



J. BROWN, 1422 EAST ST, CHARGE N01 1 1 1 ,500 .00 — — 
S.APPLE, 3434 cherry st, CHARGE NO 2211,222.22 
r.redi,7896 aLgo ave, charge no 1660,133.98 



EXIT TEXT MODE. — - 



READY, 
save 



READY, 
new, update 



READY, 
text 
ENTER TEXT MODE. 



000000010- 

000000020 

000000030 



Program is new file CLIENT. 



Creates the file CLIENT. 



Control break key pressed to exit from TEXT mode. 



Creates the file UPDATE. With the charge account 
balances to be added to CLIENT file balances. 



Figure 10-4. Using Data Files Under NOS (Sheet 1 of 2) 
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EXIT TEXT MODE. -« ___ Control break key pressed to exit from TEXT mode. 



READY, 
save 



READY, 
new, test 



auto 

00100 f i Le #2 = "UPDATE" — . Creates a program to read CLIENT and UPDATE 

00110 file #1 = " CLIENT" files, AUTO command (IAF) is used to initiate 

00120 restore #1 automatic line numbering. 

00130 restore #2 

00140 for i=1 to 3 

00150 input #1 ,A$,b$,c$,d 

00160 input #2,s 

00170 x=d+s 

00180 print t ab (2 ) ; aS; t ab (1 2) ; b$; t ab(32) ; c$; t ab (5 2) ; "ba L ance=$"; x 

00190 next i 

READY, 
get, client -. Places file CLIENT in working file area. 

READY, 
get, update 

READY. 
rnn * — Compiles and Executes. 

J.BROWN 1422 EAST ST CHARGE N01111 balance=$ 510 

S.APPLE 3434 cherry st CHARGE NO 2211 balance=$ 242.22 

r.redi 7896 algo ave charge no 1660 balance=$ 163.98 



Figure 10-4. Using Data Files Under NOS (Sheet 2 of 2) 



RESEQ,nn,ii 

nn Indicates new line number of the first statement in the file; maximum size is 

five digits; if omitted, the default is 00100. 

ii Indicates increment to be added to nn; default value is 10. 



Figure 10-5. RESEQ Command Format 
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BASIC 
BEADY. 
OLD* RESEQ 1 

HEADY. 
LNH 

10 PRINT -TYPE A POSITIVE NUMBER" 

20 INPUT A 

22 IF A<0 THEN 46 



27 
37 


PRINT USING 37* A 

*YOU DID IT* +### IS A POSITIVE NUMBER 


40 
46 


STOP 

PRINT A;" IS NEGATIVE* TRY AGAIN" 



77 GOTO 10 
80 END " 
READY. 

RESEQ 

READY. 

LNH 

00100 PRINT "TYPE A POSITIVE NUMBER" 

00110 INPUT A 

00120 IF A<0 THEN 00160 

00130 PRINT USING 00140*A 

00140 tYOU DIP IT* ***f IS A POSITIVE NUMBER 

00150 STOP 

0160 PRINT A;" IS NEGATIVE* TRY AGAIN" 

00170 GOTO 00100 

00180 END 

READY. 



Figure 10-6. RESEQ Command Example 
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The Network Operating System/Batch Environment 
(NOS/BE) permits multiple-user access to CDC's CYBER 
170, CYBER 70, and 6000 Series computers. From a 
remote terminal, the INTERCOM commands and directives 
can be used to enter and execute BASIC programs 
interactively, to create and submit BASIC programs for 
batch execution, and to create data files to be accessed by 
BASIC programs. The remote terminal can be any 
teletypewriter (TTY) or CRT supported by NOS/BE. 

This section describes and illustrates the creation of BASIC 
programs for interactive processing; a method of creating 
data files to be accessed by a BASIC program; and the 
utility for resequencing BASIC programs. For a complete 
description of Text Editor commands, and remote 
terminals supported by NOS/BE, see the INTERCOM 
Version 4 reference manual or the INTERCOM Version 5 
reference manual. Creation and submission of BASIC 
programs for batch processing is described in the section 
on Batch Operations. 



ENTERING A PROGRAM 

When creating a BASIC program that is to be run 
interactively or submitted for batch execution, first enter 
text edit mode. Text edit mode can be entered at any time 
after the login sequence is completed by typing EDITOR 
and the carriage return key after the system prompt, 
COMMAND. 

COMMAND - EDITOR @ 

The system editor responds with two consecutive periods, 
indicating text edit mode is in effect. After the EDITOR 
command, enter the following command (after the periods): 



FORMAT .BASIC £r) 



This command establishes a special BASIC program 
environment. The maximum line length is established at 
150 characters. BASIC line numbers serve as EDITOR 
sequence numbers, and EDIT with SEQUENCE, CREATE, 
ADD, or RESEQ becomes illegal. Once specified, the 
BASIC format environment remains in effect for the 
duration of the terminal session or until the one of the 
following is specified: a FORMAT without parameters, or 
a FORMAT with a COMPASS, FORTRAN or COBOL 
parameter (such as FORMAT, COBOL). 



Once the FORMAT command is accepted (apparent by two 
periods displayed on the next line following the command), 
enter program text in one of the following two forms: line 
number (one space) text (for the BASIC format) line 
number = text (in other formats). If an error is made while 
typing a line, back space n characters by pressing the 
backspace key or by typing CONTROL H, n times, and 
enter the correct information, or erase the entire line by 
pressing CONTROL X. The CONTROL key must be held 
down while the H or X key is pressed. To correct an 
existing line, reenter the line number and type the correct 
information. To delete an existing line, type DELETE, line 
number. If an entered line exceeds 150 key strokes, it is 
truncated and a message is displayed at the terminal. 



INTERACTIVE BASIC 
TERMINAL SESSION 

A BASIC program can be entered, edited, and executed 
interactively from a CRT or TTY terminal. Figure 11-1 
was created and run at a TTY terminal. Responses entered 
are underlined. Press the carriage return key (S) after 
typing in each response. 



CONTROL DATA INTERCOM 4.7-«- 
DATE 05/06/80 
TIME 13.07.54. 

PLEASE LOGIN 
login 

ENTER USER NAPE-abs 

■■■■■■■III ENTER PASSU0RD- 



05/06/80 LOGGED IN AT 13.08.21. 
WITH USER-ID HX 
EQUIP/PORT 63/067 



LOGIN procedure. 



LOGIN 



CREATED 05/02/80 TODAY IS 05/06/80- 



.Optional login bulletin can change daily. 



Figure 11-1. Interactive BASIC Terminal Session (Sheet 1 of 3) 
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C0MMANU- EDIT0R- 



... F0RMAT, BASIC — 

.. 10 3EK THIS PROGRAM C0MPUTES INTEREST PAYMENTS 
20 PRINT "ENTER T0IAL AM0UNI 3F L0AN" 



Calls EDITOR. 

When in EDITOR command mode, requests 

BASIC format specifications. 

Enters a BASIC program line by line. 



21 

22 


INPUT A 

IF A <= G0T0 200 


26 


PRINT "ENTER INIEKEST PERCENTAGE" 


30 
35 
A3 


INPUT J 
J=J/100 

PS I NT "ENTER T0TAL NUMBER 0F YEARS" 



AS INPU1 N 



30 PRIN1 "ENTER NUMBER 0F PAYMENTS PER YEAR" 

35 INPUT M 

60 N = N*M 

6a I=J/W 

70 3=1 + 1 

73 R=A*1/<1-1/3**N) 

79 AM3UNT PER PAYMENT =$$$$».»# 

30 ; TOTAL INTEREST =£$$$$*.»* 

81 PR INI USING 70. R 

82 PR IN I USING 80. ft*N-A 
88 PRINT 

94 : INTEREST 



APP 10 PR IN $ 



3ALANCE $ 



95 PRINT USING 9 A 

100 L=A*I 

1 10 P=R-L 

120 A=A-P 

130 PRINT USING 135* L,P,A 



133 


:###.## ###.## #####.## 


140 
150 


IF A>=R G0T0 100 

PRINT USING 133. A*I,R-A*I 


155 

160 


PRINT 

PRINT USING "LAST PAYMENT =$$$#.##"> A*I +A 



170 G0T3 2 
200 EML> 

200 END 

KUN,3ASIC 



ILLEGAL STATEMENT AT 79 
N0N- IMAGE REFERENCED AT 
3ASIC C0MPILATI0N ERR0RS 



81 



• 79 8AM0UNT PER PAYMENT = S$3S».»»^«_ 



BI PRINT USING 79* R 



RUN, BASIC 



Compiles and executes BASIC program. 
BASIC issues diagnostic messages. 



Corrects the illegal statements by 
reentering them. 



Calls BASIC compiler again to compile 
and execute the BASIC program. 



ENTER T0TAL AM0JNT 0F L0AN 
75000 

ENTER INTEREST PERCENTAGE 
? il 

ENTER T0TAL NUMBER 0F YEARS 
72. 

ENTER NUMBER 0F PAYMENTS PER YEAR 
?6 



Figure 11-1. Interactive BASIC Terminal Session (Sheet 2 of 3) 
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AM0UNT PER PAYMENT = $467.97 
T0TAL INTEREST = $615.66 



INTEREST 


APP T0 


PR IN S 


BALANCE 


91 .67 


376.31 




4623.69 


84.77 


333.20 




4240-49 


77.74 


390.23 




3850.26 


70.59 


397.38 




3452.88 


63-30 


404.67 




3048.21 


55.88 


412.09 




2636.12 


48.33 


419.64 




2216.43 


40.64 


427.34 




1789.14 


32.80 


435.17 




1353.97 


24.82 


443.15 




910.82 


16.70 


451 .27 




459.55 


8.43 


459.55 







LAST PAYMENT =$467.97 
EMTER T0TAL AMOUNT 0r" L0AN 
?0 



..SAVE.BASPR0G 



•ST0RE.3ASPR0G -*- 



.LI3T*ALL*SUP -*. 



Requests contents of edit 
file be saved as a local 
file named BASPROG until 
log out using the LOGOUT 
command. 

Stores BASPROG as a 
permanent file. 

Requests listing of programs. 



I 
I 



10 REM THIS PR3 

20 PRINT "ENTER 

21 INPUT A 

22 If a <= G0 
26 PRINT "ENTER 
30 INPUT J 

33 J=J/100 

40 PR INI "ENTER 

45 INPUT N 

50 PRINT "ENTRR 

55 INPUT « 

60 N=M*M 

65 I=J/M 

70 B=I*T 

75 R=A*I/<l-l/3 

78 PRINT 

79 :AM0UNT PER 

80 X10TAL INTER 

81 PRINT USING 

82 PRINT USING 
88 PRINT 

94 : INTEREST 

95 PRINT USING 
100 L=A*I 

110 P = R-L 

120 A=A-P 

130 PRINT USING 

135 :###.## 

140 IF A>=R G0T 

150 PRINT USING 

155 PRINT 

160 PRINT USING 

170 G3T0 20 

200 END 



GRAM COMPUTES INTEREST PAYMENTS 
T0TAL AM3UNT I3F LOAN" 

T0 200 
INTEREST PERCENTAGE" 



TOTAL NUMBER 0F YEARS" 
NUMBER 0F PAYMENTS PER YEAR" 

**N) 

PAYMEN1 =$$$$#.## 
EST =S$S$$#.## 
79* R 
80* R*N-A 



APP T0 PR IN £ 



BALANCE $ 



94 



135* L#P*A 

3 100 
135* A*IjR-A*I 

"LAST PAYMENT =$$$#.##"> A* I +A 



Figure 11-1. Interactive BASIC Terminal Session (Sheet 3 of 3) 
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BASIC COMMAND 

Basic can be run interactively using the full capability of 
the BASIC control statement, described in section 13, by 
performing the following steps: 

1. Create the BASIC program under EDITOR. 

2. Save the program by entering: 

SAVE,lfn 

For a program created in BASIC format. 

SAVE,lfn,NOSEQ 

For a program created in other than BASIC 
format. 

3. To leave EDITOR type in END. 

4. Connect required files to terminal by entering: 

CONNECT,lf ni ,lfn 2 , . . . 

Normally the J and K files on the BASIC command 
(default INPUT and OUTPUT) should by connected. 

5. Compile and execute the program by entering: 

BASIC(I=lfn,...) 



An example of these command parameters is shown in 
figure 11-2. BASIC command parameters are described in 
the section on Batch Operations. 

USING DATA FILES 

Data files to be used by a BASIC program can be created 
under EDITOR. To create data files acceptable to the 
BASIC program, select a format; the format must be a 
format other than BASIC. In the BASIC format, line 
numbers are part of the text and cannot be removed. 

Data is entered one line at a time in line number=text 
format. After the entire file is created, save the file (file 
becomes local file) without sequence numbers by using the 
SAVE,lfn,NOSEQ command. EDITOR line numbers are 
stripped when the SAVE command with no sequence 
number option (NOSEQ) is selected. To edit a file that was 
saved without sequence numbers, enter the EDIT,lfn,SEQ 
command. The SEQ parameter causes an EDITOR line 
number to be appended to each line of text. An example of 
using data files under NOS/BE is illustrated in figure 11-3. 
Responses entered are underlined. 

RENUMBERING BASIC LINES 

The BRESEQ command provides a means of resequencing 
the line numbers in a BASIC local file. Line number 
references in the BASIC program are automatically 



COMMAND- EDI TOR 




. .FORMAT, BASIC 




..100 PRINT "SAMPLE PROGRAM" 




SAVE EX1 




..END 




COMMAND- CONNECT* INPUT* OUTPUT 




COMMAND- BASIC(I=EX1 




COMMAND- BASIC 




EX1 


BAS 


IC 3.4 79122 06/19/79 13.45.21. PAGE 1 




100 PRINT "SAMPLE PROGRAM- 




SAMPLE PROGRAM 




24 00 0B CM USED 




.020 CP SECONDS COMPILATION TIME 




.009 CP SECONDS EfcECUTIONTIME 




COMMAND- 





Figure 11-2. BASIC Command Parameters Under NOS/BE 
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CawViAND- EDITOR 



"l3kMAT#r"a«ISAN .*- 



. CrfEAIE 



Enters EDITOR. 



Chooses a format other than BASIC for data. 



EDITOR command creates an edit file. Line 
numbers and equals signs supplied by the system. 



103 = J.B.><Jjji\» 1 422 EAST SI .CHARGE N6 111 1.500. 00 
1 1 0= S. APPLE, 3434 CHE3RY ST .CHANGE N3 2211,2gg.2g 
1 20 = 3.KEL)I*7S96 ALG3 AVE «CHAKGE N3 1 660. 1 33.98 
130 = = — 



Equals sign terminates entry of lines. 



• SAvE.CL IEiM i »N3SEJ 
.CrcEAJE — 



100=000300010 



1 1 0=000003020 



I 20 = 000000030 



Saves CLIENT in local file without sequence 

numbers. 

Creates local file UPDATE containing new 

charge account balances to be added to 

file CLIENT. 



1 30 = = 



• .SAVE.'JPOA I E. N0SE3 -«_ 



. JELE1E.ALL- 



.F0Kt Y Al , jASIC — 



.. 5 fILE *2 = "UPDAiE" 
10 r~ILE #\ = "CLIENI" 
20 RESTORE »1 
30 SESTBrtE #2 



Saves UPDATE in local file. 



Deletes contents of edit file. Cannot use 
CREATE in BASIC format. 



Chooses BASIC format for program entry. 



Creates a program to read the files 
CLIENT and UPDATE. 



40 FUR 1=1 T0 3 



50 I.NPUl *\, AS,3S,CS*D 

60 INPJT #2. S 

70 X = l) + S 

80 PHIN1 fAB<2) ;ASj 1A3H2) ;dS; IABC32) iCS;l A3<52) ; "BALANCE =3" j X 

90 NEXT I 



Figure 11-3. Using Data Files Under NOS/BE (Sheet 1 of 2) 
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RUN* BASIC 








Requests compilation and execution. 


RESULTS 








j. shewn 

S.APPLE 
R.REDI 


1422 

3434 
7 896 


EASI ST 
CHERRY SI 
ALG0 AVE 


CHARGE N0 
CHARGE Ni3 
CHASGE N0 


1111 3ALANCE=$ 510 
2211 BALANCE=S 242.22 
1660 3ALANCE=$ 163.98 


. . SAVE.3ASPR0G 






Saves the program. 
Exits from EDITOR. 


. .END -• 








CaCrK'iAND- 











Figure 11-3. Using Data Files Under NOS/BE (Sheet 2 of 2) 



updated. The format for the BRESEQ command is shown in 
figure 11-4. When only one parameter is specified, it is 
assumed to be the starting line number for the new file, 
and the default increment value (10) is used. 



BRESEQ,lfn,start,incr 


Ifn 


Indicates filename of the local file to 
be resequenced. 


start 


Indicates new line number to be 
assigned to the first line in the file. 


incr 


Indicates increment to be added to 
nn; default value is 10. 



Figure 11-4. BRESEQ Command Format 

The BASIC file must exist as a local file and cannot be the 
local name for an attached permanent file. To resequence 
a permanent file, copy the file and assign a unique 
filename. This can be accomplished by the use of the 
COPY command or by loading the file into an EDIT file and 
then using the SAVE command. 

The BRESEQ command affects only the specified local file 
and not the edit file. If further modifications are to be 
performed, the resequenced file must be reloaded into the 
EDITOR edit file by using the following directive: 

EDIT,filename 

An example of the BRESEQ command and reloading of the 
resequenced file is shown in figure 11-5. 



CB'VyiAND- EUII0R 




..r <iRKAI.3A.3IC 




• •5 PRINT 'TYPE A PSSIIIVE NU 


Y'BER" 


10 I MP J I A 




60 IF A<0 |H£N 80 




60 PRINT -JSING 71 , A 


71 : +*## IS P0S1 1 IVt 




75 SICP 




80 PR1NI A;" IS NtGAIIVE. IRY 


AGAIN" 


100 GC1E 10 




SAVE.SX 




.. BRESEQ (EX. 1 O* 10) 




..£l>II»EX 




..LIST.ALL.S'JP 




00010 PRIN1 "1YPE A P0SI1IVE 


NUMBER" 


00020 INPdl A 




00030 IE A<0 J HEN 00070 




00040 PRINT USING 00050* A 




000S0 : ♦*## IS POSUIVE 




00060 SI0P 




00070 PRI.N1 Al" IS NEGATIVE* 


IKY AGAIN" 


00080 62 10 00020 




• • 





Figure 11-5. BRESEQ Command Example 



11-6 



19983900 G 



BATCH OPERATIONS 



12 



A batch job includes a user-written program, associated 
data, and control statements organized as separate logical 
records. A batch job can be input through a card reader at 
the central site, input from a remote batch terminal, 
invoked from a procedure, or, if the batch job is stored on 
a file or created during an interactive terminal session, it 
can be entered into the batch queue from the interactive 
terminal. 



This section describes the general structure of a batch job, 
the BASIC control statement parameters, and the 
procedure for creating and submitting a batch job under 
NOS or NOS/BE. Figure 12-1 shows the control statements 
for a batch job under NOS and figure 12-2 shows the 
control statements under NOS/BE. 



Job statement 


Specifies job name, and optionally, 
the memory and time requirements, 
priority, and other information. 


USER and 

CHARGE 

statements 


Specifies accounting information 
for NOS. CHARGE might be 
optional at your site. 


BASIC 
statement 


Calls BASIC compiler. 


LGO. 


Loads binaries from LGO file and 
initiates execution. 


7/8/9 


Indicates end -of -record. 



Job statement 


Specifies job name, and optionally, 
the memory and time requirements, 
priority, and other information. 


ACCOUNT 
statement 


Specifies accounting information 
for NOS/BE. 


BASIC 
statement 


Calls BASIC compiler. 


LGO. 


Loads binaries from LGO file and 
initiates execution. 


7/8/9 


Indicates end-of -record. 



Figure 12-2. Job Structure Under NOS/BE 



BASIC CONTROL STATEMENT 

Programs submitted for batch processing must include a 
BASIC control statement. This control statement calls the 
compiler and is formatted as follows: 

BASIC( P1> ...,p n ) 

The simplest form of the BASIC control statement is: 
BASIC. 



Figure 12-1. Job Structure Under NOS 



DECK STRUCTURE 

Compile-to-memory (previously known as compile-to-core) 
involves no relocation of addresses. An example of a 
compile-to-memory job deck for use under NOS is shown in 
figure 12-3. An example of a relocatable binary load under 
NOS/BE is shown in figure 12-4. 



Information on entering a job from an interactive terminal 
can be found in the Network Products Interactive Facility 
reference manual and the XEDIT reference manual for 
NOS, and in the INTERCOM Version 4 reference manual 
and INTERCOM Version 5 reference manual for NOS/BE. 



A 6/7/8/9 statement specifies end-of-information 
(end-of-deck). A complete description of the BASIC 
control statement follows. Refer to the NOS or NOS/BE 
reference manual for a detailed description of these and 
other control statements. 



This control statement specifies that the BASIC program 
on file INPUT is to be compiled and executed. A source 
listing is produced on file OUTPUT unless the control 
statement was issued from a terminal. A relocatable 
binary file is not produced. The parameters 
(pi ... ,p n ) associated with this control statement 
permit the selection of the following parameter types: 



• Compiler listable output options 

• Compiler input options 

• Compiler binary options 

• Program execution options 



Tables 12-1 through 12-4 list available control statement 
parameters under the appropriate category, and describe 
their use. Some control statement parameters can have 
multiple values associated with them. Multiple values are 
separated by slashes and are cumulative. 
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Data 
Record 



Program 
Record 



Control 

Statement 

Record 




Figure 12-3. BASIC Compile and Execute Job Under NOS 



Data 
Record 



Program 
Record 



Control 

Statement 

Record 




CCOUNT.ABCDE FG,TU VWXYZ 



JOBAAA 



Figure 12-4. BASIC Compile, Load, and Execute Job Under NOS/BE 
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TABLE 12-1. COMPILER LISTABLE OUTPUT PARAMETERS 



Parameter 


Parameter 
Format 


Description 


Remarks 


Compile- Time 


omitted 


For batch jobs, default output file 


If the program is in ASCII, the 


List File (L) 




is OUTPUT. For interactive jobs, 


listing file must be sent to the 






default is no qompiler listable 


ASCII printer, not to the normal 






output file (same as L=0). 


64-character printer. 




L 


Listable compiler output on file 
OUTPUT. 






L=lfn 


Listable compiler output on file 
lfn. 






L=0 


No compile list file. 






(zero) 






Listing Options 


omitted or 


Produces a source listing on a file 


This parameter can have multiple 


(LO) 


LO or L0=S 


specified by the L parameter. 


values associated with it. Values 
are separated by slashes and are 
cumulative. 




L0=0 


Produces a source listing and an 


S is on by default. 




(letter 0) 


object listing on L file. 






L0=0/0 


Produces an object listing only on 


The number zero (0) turns off all 




(zero/ 


L file. 


previously specified values. In 




letter) 




this case, it turns off the de- 
fault S value. The letter 




L0=0 


Turns off all list options. 


turns on object listing. 




(zero) 






Burstable List- 


omitted 


Page ejects between portions of the 


The installation can change the 


ing Control 




compiler output (source listing and 


meaning of BL omitted to that 


(BL) 




object listing) are suppressed; 


specified by the BL option that 






listing is not burstable. If the 


follows. 






compile-to-memory and execute-in- 








one-step option is selected (no B 








pption), the pages that are between 








the compiler output eject, the first 








line of execution output is sup- 








pressed, and four blank lines are 








listed instead. 






BL 


Includes page ejects between com- 


Does not apply if the L file is 






piler output portions and between 


the terminal. 






the compiler output and the first 








line of execution output. 




Print Density 


omitted 


Specifies the print density (lines- 




Control (PD) 




per-inch) on the files specified by 
the L and K parameters as the in- 
stallation default (usually 6). 






PD=6 


For L and K files, sets print 


Only effective on an output device 






density to 6. Automatically resets 


whose density can be changed (for 






the density to the default value 


example, a CDC-512 printer). 






after all output is written to the 








files. 






PD=8 or PD 


For L and K files, sets the print 
density to 8 and automatically 
resets the density to the default 
value after output is written to 
the files. 
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TABLE 12-1. COMPILER LISTABLE OUTPUT PARAMETERS (Contd) 



Parameter 



Parameter 
Format 



Description 



Remarks 



Page Size 
Control (PS) 



Compile-Time 
Error File (E) 



Error Level 
Control (EL) 



omitted 



PS=n 

(where n is 
4<n<32768) 



omitted 



E 
E=lfn 



omitted or 
EL=W 



EL=F 



If PO is not specified, uses 
installation default page size 
(number of printable lines per 
page excluding upper and lower 
margins for the file). 

If PD specifies a nondefault print 
density, PS is calculated as 
follows: 

PS=PD*( default PS)/( default PD). 

Establishes the L file page size as 
n printable lines per page. This 
parameter has no effect on execution 
output. Lines are not counted at 
execution time. 

Compile-time error diagnostics 
written on the file specified by 
the L parameter. If there is no L 
file (L=0), diagnostics are written 
to file OUTPUT. 

Compiler error diagnostics are 
written on file ERRS. 

Error diagnostics are written on 
file lfn. 



Writes warning diagnostics and 
fatal compiler diagnostics on the 
file specified by the E parameter. 

Fatal error diagnostics, but no 
warning diagnostics, are written 
on the E file. 



Four is the smallest possible page 
size because each page must in- 
clude a 3-line header and at least 
one additional line. 



If the program is in ASCII, the 
listing file must be sent to the 
ASCII printer, not to the normal 
64-character printer. 



Diagnostics are listed only once 
even when the file specified by 
the E parameter is the same as 
that specified by the L parameter. 



TABLE 12-2. COMPILER INPUT PARAMETERS 



Parameters 


Parameter 
Format 


Description 


Remarks 


ASCII Character 
Set (AS) 


omitted 
or AS=0 
(zero) 


Source program and data files con- 
tain only normal (non-ASCII display 
code) characters. (See appendix A.) 






AS 


Source program and data are encoded 
in the extended ASCII character set. 
(See appendix A.) Program runs in 
ASCII mode. 


Under NOS/BE, a normal character set 
source program is also acceptable. 


Compile-Time 
Input (I) 


omitted 

I 
I=lfn 


Compiler input (BASIC source program) 
is on file INPUT. 

Compiler input (BASIC source program) 
is on file COMPILE. 

Compiler input (BASIC source program) 
is on file lfn. 


Normally the program ID (name) con- 
tained in optionally generated relo- 
catable binary decks is the name of 
the source file specified in the I 
parameter. The only exception occurs 
when the I file is the system file, 
INPUT or COMPILE; in which case, the 
program name in the binary deck is 
BASICXX. 
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TABLE 12-3. COMPILER BINARY OUTPUT PARAMETERS 



Parameter 


Parameter 
Formats 


Description 


Remarks 


Binary File 
(B) 


omitted 
or B=0 
(zero) 


Compile-to-memory. Does not produce a 
relocatable binary. 


Automatic execution is controlled by 
the GO parameter. See table 12-4. 
If in CID mode (DEBUG (ON) has been ex- 
ecuted, or DB=ID has been specified), 
a relocatable binary is written onto 
the reserved system file ZZZZZDC. 




B 


Binary of compiled program written on 
file BIN. 






B=lfn 


Binary of compiled program written on 
file lfn. 




Debug 
(DB) 


omitted 


Trace feature, force binary gener- 
ation, and program execution are 
not activated. CID feature is not 
activated unless an explicit DEBUG 
or DEBUG(ON) command has been 
previously issued. 


Binary generation and automatic 
program execution are inhibited by 
compilation errors, and REM Trace 
statements are only comments. 
Generation of CID information is 
controlled solely by an explicit 
DEBUG command. 




DB=ot 
(zero) 


CID and trace features are not 
activated. 


Same as if omitted except that CID 
information is inhibited even if an 
explicit DEBUG command has been 
issued. 




DB 


Same as DB=B/DL. 


The default list of parameters. 




DB=0/Bt 
(zero) 


Forces binary generation and/or 
program execution regardless of 
compilation errors. 


See B and GO parameters. A program 
containing compilation errors executes 
normally until a statement which 
caused the compilation error is en- 
countered. 




DB=0/DLt 
(zero) 


Activates program tracing as con- 
trolled by REM TRACE debug lines. 


See section 9. 




DB=0/IDt 
(zero) 


Activates generation of CID infor- 
mation. 


Causes generation of CID tables and 
special code. 




DB=0/TRt 
(zero) 


Traces all statements regardless of 
REM TRACE debug lines. 


Turns on the trace feature. 




DB=TR 


Same as DB=B/DL/TR. 


TR parameter is added to the default 
list of parameters. 




DB=ID 


Same as DB=B/DL/ID. 


ID parameter is added to the default 
list of parameters. 


^The zero tu 
and DL. 


rns off all p 


reviously specified values. For example, 


DB=0/TR turns off default values B 
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TABLE 12-4. PROGRAM EXECUTION PARAMETERS 





Parameter 


Parameter 
Formats 


Description 


Remarks 




ASCII Mode 


omitted 


Program runs in normal mode. 




1 


(AS) 


or AS=0 


Data files are presumed to be 






(zero) 


in normal, not ASCII mode 










(display code, not ASCII, 










characters) . 








AS 


Program runs in ASCII mode. 
All character data is inter- 
preted as ASCII, not display 
code. See appendix A. 






Execution 


omitted 


Compiled BASIC program 


Program can be executed despite com- 




Control (GO) 




executes without loading 
provided it was compiled- 
to-memory (i.e., no B 
parameter specified) and 
there were no compilation 
errors. When the B option 
(table 12-3) is specified, 
the compiled program does 
not execute. 


pilation errors. See DB parameter 
table 12-3. 






GO 


Compiled BASIC program exe- 
cutes provided there were no 
compilation errors. 


See DB parameter in table 12-3. 


1 




G0=0 


Inhibits execution. Neither 






(zero) 


the compile-to-memory version 










nor the relocatable binary 










version of the BASIC program 










executes. 






Execution-Time 


omitted 


Default input file for com- 






Input File (J) 


or J 
J=lfn 


piled BASIC program (file 
read when INPUT statement is 
executed) is INPUT. 

Default input file for com- 
piled BASIC program is Ifn. 




1 




J=0 


No default run-time input 


Use of the INPUT statement aborts the 




(zero) 


file. 


executing BASIC program. 




Execution-Time 


omitted 


Default output file for com- 


J and K options control the default 




Print File (K) 


or K 


piled BASIC program (file 


input and output files of the com- 
piled program because BASIC does not 








used for PRINT statement and 








run-time error diagnostics) 


provide a means of controlling file 








is OUTPUT. 


assignment for the simple form of the 
PRINT and INPUT statements; also, the 






K=lfn 


Default output file for the 
compiled BASIC program is 
lfn. 


normal mode of operation, compile-to- 
memory and execute-in-one-step 
option, prohibits file assignments 
from being manipulated by interven- 
ing loader control statements. When 
loading and executing a program from 
relocatable binaries, parameters can 
be used to change the names of the J 
and K files, such as when relocatable 
binaries have been written on file 
LOG: 

LGO, FILEIN, FILEOUT. 

This causes the program to be loaded 
and executed with INPUT data from 
FILEIN and output PRINT data on 
FILEOUT. 
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TABLE 12-4. PROGRAM EXECUTION PARAMETERS (Contd) 



Parameter 


Parameter 
Formats 


Description 


Remarks 


Debug and Trace 
(DB) 

Print Density 
Control (PD) 




Activates trace feature and 
forces execution regardless 
of compilation errors. See 
table 12-3. 

Controls density (lines per 
inch) of printed output. 
See table 12-1. 





The following examples illustrate some combinations of 
control statement parameters and the following paragraphs 
discuss possible options. 

• Compile and Execute 

BASIC (B=SAM,GO) 

The above control statement compiles the program 
found on file INPUT (I parameter default), places the 
compiler binary output on file SAM (B=SAM), and loads 
and executes the compiled program (GO). 
Execution-time output is written on file OUTPUT (K 
parameter default;. Compile-time errors prevent 
execution and, when detected, are written to file 
OUTPUT (E and EL parameter default). A source list 
is created on file OUTPUT (L parameter default and 
LO parameter default) unless it is assigned to a 
terminal. When under NOS, source listing is not 
written when the program is in interactive mode 
(default L value is O) because file OUTPUT is 
automatically associated with the terminal. 

• ASCII Compile and Execute 

BASIC (AS,I=PROG3) 



The compiler input (source code) is on file TESTP 
(I=TESTP) and the program is compiled and executed 
(default B and GO parameters). Compile-time errors 
are written on file OUTPUT. However, warning 
diagnostics are suppressed (EL=F). Also, a source and 
object listing is written on file OUTPUT (default L 
parameter and LO=0). Print density of file OUTPUT 
is set to 8 (PD=8). ROUTE (DISPOSE on NOS/BE) the 
file OUTPUT to a device that can print 8 lines per 
inch. Page size for the printed output file is set at 20 
lines per page (PS=20). 

REM LIST STATEMENT 

The REM LIST statement controls the source code listing 
produced by the BASIC compiler. The format of the REM 
LIST statement is shown in figure 12-5. 



1. REM LIST.NONE 

2. REM LIST.ALL 



Figure 12-5. REM LIST Statement Format 



The AS parameter specifies that the source code found 
in file PROG3 is encoded in ASCII characters and that 
data produced by the BASIC program is in the ASCII 
character set. The program is compiled-to-memory 
and executed immediately (B and GO parameter 
defaults). A source listing is produced on file 
OUTPUT unless it is assigned to a terminal (L 
parameter default). On NOS, the source code of the 
program must be in ASCII 6/12 characters. On 
NOS/BE, the source can be in either display code 
(6-bit) characters or in ASCII 8/12 characters. 

• Compile, Execute, and List 

BASIC (I=SOURCE, L=LIST) 

This control statement compiles-to-memory and 
executes; compiler input (source) is on file SOURCE. 
Listable compiler output is written on file LIST. 
Source listing is specified by the LO parameter 
default. Error diagnostics are written on file LIST 
(default of E parameter). Source code and data do not 
contain ASCII characters. 

• Compile and Execute with Listing Options and Controls 

BASIC (1= TESTP, EL=F, LO=0, PD=8, PS=20) 



REM LIST, NONE inhibits all further source code listing 
until a REM LIST, ALL statement is executed, which 
causes listing of the source code to resume. Both 
statements are printed by BASIC to permit you to see 
where the source code listing was suppressed. 

The REM LIST statement is effective only when the source 
list option (L parameter) is activated via the BASIC control 
statement. If the source list option is off when a REM 
LIST statement is encountered, REM LIST is treated like a 
REM statement (a comment). Figure 12-6 illustrates the 
REM LIST statement. 

BATCH PROCESSING FROM A 
TERMINAL 

BASIC programs can be created at a terminal and 
submitted for batch processing. This is accomplished by 
setting up the program in a Text Editor file that includes 
control statements. 



NOS 

Figure 12-7 shows an example of a terminal session where 
a job is created and submitted for batch processing. 
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100 J=120 

120 REM LIST PRICE (J) PLUS SALES TAX (S) 

130 S=J*.07 

140 REM LIST, NONE 

155 REM LIST, ALL 

160 PRINT "TOTAL COST IS $";T 

170 PRINT "SALES TAX IS *";S 

180 END 



produces: 

LIST PRICE IS $ 120 
TOTAL COST IS $ 128.4 
SALES TAX IS S 8.4 

statements not listed: 

145 T=J+S 

150 PRINT "LIST PRICE IS $' 



TOTAL COST (T) 



;J 



Figure 12-6. REM LIST Statement Example 



batch 




SRFL,0. 




/new, guide 




/100 /job 




110 


mar lene. 




120 


user, absCK 55, pubs. 




130 


charge, 5912, 693a412. 




150 


basic . 




151 


dayf i le,prog . 




152 


replace, prog . 




153 


exi t . 




154 


dayf i Le,prog . 




155 


replace, prog . 




160 


/eor 




170 


/noseq 




180 


a=304 




190 


b=403 




200 


t = a*b 




210 


print t 




220 


end 




250 


/eof 




submi t, guide, b 




15 


45.35. SUBMIT COMPLETE. JOBNAME IS ACLICQF 


/enqui re, j n=cqf 




ACLICQ.F IN INPUT QUEUE. 





Figure 12-7. Batch Processing From a Terminal Under NOS 



The /JOB directive indicates that the file is to be 
reformatted for batch processing. Some defaults indicated 
by the directive are: 

• Remove sequence numbers. 

• Remove internal EOR and EOF marks (converts /EOR 
and /EOF found in this deck to end-of -record and 
end-of-file, respectively). 

See the Network Products Interactive Facility reference 
manual or the NOS Time-Sharing User's reference manual 
(Reformatting Submit File) for remaining directive 
descriptions. The options of the BASIC control statement 
are available to the interactive user when using the batch 
subsystem. 



NOS BE 

To send a batch job to NOS/BE from a remote terminal, 
first enter EDITOR, as described in Terminal Operation 
under NOS/BE. You can then issue the CREATE command 
to construct the program statements to be processed. A 
FORMAT need not be specified, but if one is, it cannot be 
BASIC (the BASIC format directs the system to 
automatically generate line numbers and, therefore, would 
disallow entry of any control statements). 



The job must include the NOS/BE control statements, along 
with the BASIC program. Each control statement and 
BASIC statement is entered on a separate line. A typical 
deck setup is shown in figure 12-8. 



12-8 
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When entering BASIC statements (under a format other 
than BASIC), the EDITOR sequence numbers are distinct 
from the BASIC line numbers and must be specified 
separately. In figure 12-8, 610 is the EDITOR sequence 
statement number generated by the system, and 100 is the 
BASIC line number input from the terminal. Once this is 
accomplished, the file can be modified by using EDITOR 
commands and can be saved by using the SAVE,lfn,NOSEQ 
form of the SAVE command. 

To submit a batch job created under EDITOR, save the edit 
file without sequence numbers, then submit the saved file 
to the batch input queue by using the BATCH or ROUTE 
command. The following are two types of processes for 
submitting a job into file TESTJOB for batch execution; 
results are automatically printed at the central site. 



SAVE,TESTJOB,NOSEQ 
BATCH,TESTJOB,INPUT 

SAVE,TESTJOB,NOSEQ, 
ROUTE,TESTJOB,DC=IN. 



Optionally, the job can be submitted for batch processing 
with the results directed to the submitting terminal for 
inspection. If acceptable, the job can be printed at the 
central site. Figure 12-9 shows an example of printing a 
batch job. 

Refer to the INTERCOM Version 4 reference manual or 
the INTERCOM Version 5 reference manual for additional 
details and examples concerning these commands. 



COMMAND-edi tor 
. . create -« 



100=job statement. - 



500=BASIC. 



600=*EOR 

610 = 100 INPUT X-«- 



620=110 IF X=0 THEN 190 



680 = 170 PRINT " FACTOR I AL"; X; " IS"; F 
690=180 GOTO 110 
700=190 END 



710=*E0R- 



. . s ,t est j ob ,ns -«- 



Creates the file. 

Control statements. (Lines 100 - 600) 



BASIC statements. (Lines 610 - 700) 



End of BASIC source record; optional if 

no succeeding information. 

End CREATE mode. 

Saves job in file named TESTJOB. 



Figure 12-8. Batch Processing From a Terminal Under NOS/BE 



BATCH/TEST JOB.INPUT.HERE Submits the job. 

Allow time for batch job to complete. 
FILES Lists file names so you can identify remote output file Ifn created by the job. 



BATCH,lfn T ,LOCAL 



PAGE,lfn T ,L 



Makes remote output file local to terminal. 

Prepares to display contents of file Ifn. The L is optional to display ASCII 
coded file. 



When prompted with READY . . . enter 1 to see the first page and + to see each 
additional page. Enter E or END to exit from the PAGE mode. 



BATCH,lfn,PRINT,id 



Submits the file to the batch print queue with user identification id. 



t The remote output file name consists of the first five characters from the job statement (job name) and two characters 
generated by the system. 



Figure 12-9. Printing a Batch Job 
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CHARACTER SETS 



Each computer has its own character set, which includes a 
collection of graphics (letters, digits, and special symbols) 
that the computer recognizes. Associated with each 
graphic of a character set is a number called a code. The 
code represents the character within the computer. 
Computers differ in their codes as well as their graphic 
sets, so in order to permit intercomputer communication, 
the American Standard Code for Information Interchange 
(ASCII) has been established. The ASCII character set 
includes all letters (uppercase and lowercase), digits, and 
many special symbols. The characters used in BASIC are 
taken from the ASCII character set. Table A-l lists the 
full ASCII character set. 

Any one of several character sets can be used on CDC 
CYBER and the 6000 Series computers. These character 
sets include CDC 63- and 64-character sets, ASCII 63- and 
64-character sets, and ASCII 128-character set. 
Differences in character sets occur in either graphics 
(CDC or ASCII), or the number of characters (63 or 64 and 
normal or 128-ASCII). Graphic differences are a function 
of the terminal or printer that is used; some devices use 
CDC symbols; others use ASCII symbols. These differences 
do not affect the BASIC program provided the programmer 
realizes that all BASIC characters are defined in terms of 
ASCII codes. When using CDC character set devices, the 
programmer must use CDC symbols equivalent (same 
internal code) to ASCII symbols required by BASIC. 
Table A-2 lists ASCII and CDC character sets so that 
equivalent symbols can be easily determined; for example, 
the ASCII // is equivalent to the CDCs. 



Differences in internal representations of characters can 
have an effect on programs and program results. 
Differences in program results can only occur when a 
program is developed on a 63-character set system, then 
run on a 64-character set system, or vice versa, and the 
program uses the OPTION COLLATE NATIVE statement 
and the normal (not ASCII) character set. Normally, 
however, there is no problem because computer systems 
operate either with a 63- or 64-character set system and 
do not switch between character sets. Even if one of the 
character set disparities exists, there is a problem only if 
the program uses string data that contain the characters 
% (percent) and : (colon). The character % is not available 
in a 63-character set system; the character : has a numeric 
code in a 64-character system, but a numeric code 51 
(63g) in a 63-character set system. As a result, for a 
program in normal mode that uses the OPTION COLLATE 
NATIVE statement, the relation ":BCD"<"ABCD" is true 
in a 64-character set system, but false in a 63-character 
system. 



CHARACTER USAGE RESTRICTIONS 

If operating with the 64-character set in normal mode, it is 
advisable to restrict the use of the colon, as follows: 

• Never use the colon at the end of a string. 

• Do not use multiple colons (:::) because they could be 
interpreted as the end of the string or end of the line. 



• Do not use a colon at the end of a line or on a line by | 
itself. 

• Do not use :A, :B, :D, :E, or :H at the end of a | 
terminal output (PRINT) line because it is interpreted 
by the operating system as a terminal command. 
Other colon and letter combinations, :L, :F, :G, and :I, 
could be misinterpreted depending on the carriage 
control at the beginning of a terminal PRINT line. 



NOS ASCII 128-CHARACTER SET 

NOS enables the BASIC programmer at an ASCII code 
terminal to make use of the ASCII 128-character set. (See 
table A-l.) This character set, which includes lowercase 
letters, special symbols, and device control characters, is 
only available when the user's terminal and program are in 
ASCII mode. A terminal is switched into ASCII mode by 
entering the ASCII command. The terminal is returned to 
normal mode by entering the NORMAL command. (Refer 
to the Network Products Interactive Facility reference 
manual or the NOS Time-Sharing User's reference 
manual). Under the BASIC subsystem, the BASIC compiler 
and the BASIC program automatically operate in ASCII 
mode when the terminal is in ASCII mode. In order for the 
compiler and program to handle the ASCII 128-character 
set in batch mode, the AS parameter must be explicitly 
specified. 

In order to provide 128 characters, some characters must 
be represented as 12-bit instead of 6-bit characters. The 
6-bit characters are distinguished from the 12-bit 
characters by using the 6-bit codes 74g and 76g as 
escape codes to indicate that the next six bits are actually 
part of this 12-bit character. This coding method is 
referred to as the 6/12 or extended display code. When 
operating in ASCII mode, the BASIC compiler assumes that 
all data files contain 128-ASCII characters, so display code 
74g and 76g are interpreted as escape code characters; 
they are never characters by themselves. 



NOS/BE ASCII 95-CHARACTER SET 

NOS/BE provides an ASCII 95-character set, as listed in 
table A-l (those characters not included in the 
95-character set are shaded). This character set includes 
those symbols and letters represented by decimal code 
values 32 through 126, which are available when the 
terminal operates in ASCII mode. 

In NOS/BE, the terminal is switched to ASCII mode only 
when directed from within the user program. There is no 
ASCII command available under NOS/BE. To specify ASCII 
modes include the AS parameter option in the BASIC 
control statement. Once the program switches the 
terminal to ASCII mode, the ASCII mode remains in effect 
until the program terminates. 

In order to provide 95 characters, each character is 
represented by 12 bits (the eight rightmost bits in a 12-bit 
byte). If a BASIC program is run in ASCII mode, all 
associated data files must be in 8/12 ASCII code. NOS/BE 
does not use the 6/12 display code. 
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A-l 



TABLE A-l. EXTENDED CHARACTER SETS 





BASIC 


BASIC 
Decimal 
Codet 


Display 


ASCII 


ASCII 




BASIC 


BASIC 
Decimal 
Codet 


Display 


ASCII 


ASCII 


BASIC 


Character 


Code 


Code 


Code 


BASIC 


Character 


Code 


Code 


Code 


Character 


Abbrevia- 


(6/12-Bit 


(7-Bit 


(7-Bit 


Character 


Abbrevia- 


(6/12-Bit 


(7-Bit 


(7-Bit 




tion 




Octal) 


Octal) 


Hexadecimal) 




tion 


Octal) 


Octal) 


Hexadecimal) 








00 " 


null 




c 


LCC 


99 


7603 


143 


63 


A 


UCA 


65 


01 


101 


41 


d 


LCD 


100 


7604 


144 


64 


B 


UCB 


66 


02 


102 


42 


e 


UCE 


101 


7605 


145 


65 


C 


UCC 


67 


03 


103 


43 


f 


LCF 


102 


7606 


146 


66 


D 


UCO 


68 


04 


104 


44 


9 


LCG 


103 


7607 


147 


67 


E 


UCE 


69 


05 


105 


45 


h 


LCH 


104 


7610 


150 


68 


F 


UCF 


70 


06 


106 


46 


i 


LCI 


105 


7611 


151 


69 


G 


UCG 


71 


07 


107 


47 


i 


LCJ 


106 


7612 


152 


6A 


H 


UCH 


72 


10 


110 


48 


k 


LCK 


107 


7613 


153 


6B 


1 


UCI 


73 


11 


111 


49 


1 


LCL 


108 


7614 


154 


6C 


J 


UCJ 


74 


12 


112 


4A 


m 


LCM 


109 


7615 


155 


6D 


K 


UCK 


75 


13 


113 


4B 


n 


LCN 


110 


7616 


156 


6E 


L 


UCL 


76 


14 


114 


4C 


o 


LCO 


111 


7617 


157 


6F 


M 


UCM 


77 


15 


115 


4D 


P 


LCF 


112 


7620 


160 


70 


N 


UCN 


78 


16 


116 


4E 


q 


LCQ 


113 


7621 


161 


71 





UCO 


79 


17 


117 


4F 


r 


LCR 


114 


7622 


162 


72 


P 


UCP 


80 


20 


120 


50 


s 


LCS 


115 


7623 


163 


73 


Q 


UCQ 


81 


21 


121 


51 


t 


LCT 


116 


7624 


164 


74 


R 


UCR 


82 


22 


122 


52 


u 


LCU 


117 


7625 


165 


75 


S 


UCS 


83 


23 


123 


53 


V 


LCV 


118 


7626 


166 


76 


T 


UCT 


84 


24 


124 


54 


w 


LCW 


119 


7627 


167 


77 


U 


UCU 


85 


25 


125 


55 


X 


LCX 


120 


7630 


170 


78 


V 


UCV 


86 


26 


126 


56 


y 


LCY 


121 


7631 


171 


79 


w 


UCW 


87 


27 


127 


57 


z 


LCZ 


122 


7632 


172 


7A 


X 


ucx 


88 


30 


130 


58 


{ 


LBR 


123 


7633 


173 


7B 


Y 


UCY 


89 


31 


131 


59 




VLN 


124 


7634 


"« 


7C 


z 


UCZ 


90 


32 


132 


5A 


■ 1 


RBR 


125 


7635 


175 


7D 







48 


33 


060 


30 




TIL 


126 


7636 


176 


7E 


1 




49 


34 


061 


31 


■sr**t 


DEL 


127 


7637 


177 


7F 


2 




50 


36 


062 


32 







7640 


000 


00 


3 




51 


36 


063 


33 


SON 




1 


7641 


001 


01 


4 




52 


37 


064 


34 


rr* 




2 


7642 


002 


02 


5 




53 


40 


065 


35 


;- i 




3 


7643 


003 


03 


6 




54 


41 


066 


36 


-. • 




4 


7644 


004 


04 


7 




55 


42 


067 


37 


- >.., 




5 


7645 


005 


05 


8 




56 


43 


070 


38 


<■ .■■ 




6 


7646 


006 


06 


9 




57 


44 


071 


39 


■■< 




7 


7647 


007 


07 


+ 




43 


45 


053 


2B 


v- 




8 


7650 


010 


08 


- 




45 


46 


056 


2D 


i-.X 




9 


7651 


011 


09 


# 




42 


47 


052 


2A 


\ -. 




10 


7652 


012 


0A 


/ 




47 


50 


057 


2F 


VT 




11 


7653 


013 


0B 


1 




40 


51 


050 


28 


FF 




12 


7654 


014 


0C 




41 


52 


051 


29 


CR 




13 


7655 


015 


OD 


$ 




36 


53 


044 


24 


i • 




14 


7656 


016 


0E 


a 




61 


54 


075 


3D 


Si 




15 


7657 


017 


OF 


SP (space) 




32 


55 


040 


20 


. . 




16 


7660 


020 


10 


, 




44 


56 


054 


2C 


DC1 




17 


7661 


021 


11 


. 




46 


57 


056 


2E 


:.. 




18 


7662 


022 


12 


# 




35 


60 


043 


23 


DC3 




19 


7663 


023 


13 


1 




91 


61 


133 


5B 


: t 




20 


7664 


024 


14 


] 




93 


62 


135 


5D 


*. ■ 




21 


7665 


025 


15 


%§§ 




37 


63 


045 


25 


SVN 




22 


7666 


026 


16 


" (quote) 


QUO 


34 


64 


042 


22 


ETB 




23 


7667 


027 


17 


_. (underline)* 


UND 


95 


65 


137 


5F 


• ; 




24 


7670 


030 


18 


1 




33 


66 


041 


21 


iv 




25 


7671 


031 


19 


& 




38 


67 


046 


26 


SUB 




26 


7672 


032 


1A 


' (apostrophe) 




39 


70 


047 


27 


;■;••■ 




27 


7673 


033 


1B 


? 




63 


71 


077 


3F 






28 


7674 


034 


1C 


< 




60 


72 


074 


3C 


--«. 




29 


7675 


035 


1D 


> 




62 


73 


076 


3E 


US 




30 


7676 


036 


IE 








74 (escape 






US 




31 


7677 


037 


1F 








code) 












7400 


_ 


_ 


\ 




92 


75 


134 


5C 


@ 




64 


7401 


100 


40 








76 (escape 






^(circumflex) 




94 


7402 


136 


5E 








coda) 












7403 


_ 


_. 


; (semicolon) 




59 


77 


073 


3B 


:§§ 




58 


7404 


072 


3A 








7600 


- 


- 








7405 


- 


- 


a 


LCA 


97 


7601 


141 


61 








7406 


_ 


- 


b 


LCB 


98 


7602 


142 


62 


\ 


GRA 


96 


7407 


140 


60 


t These codes are the decimal equivalent of the 7-bit octal ASCII codes. They are rei 


urned by the ORD fu 


nction, used by the CHR$ 


function and used for comparing strings when the standard collating sequence is in 


sffect (regardless of tr 


e character set used) and when 


the native collating sequence is in effect and the ASCII character set is being used. 


See AS parameter or 


BASIC control statement.) 


■^Twelve zero bits at the end of a 60-bit word are an end-of-line or end-of-record r 


nark rather than two < 


jolons. Colons at the end of 


lines or strings are considered part of the end-of-line or end-of-string marker. In 
null character. 


the 63-character set. 


this display code represents a 


''"'"''Those characters which are not included in the NOS/BE 95-character set are shi 


ded. 




§On TTY models having no underline, the backarrow (<-) takes its place. 






§§ In a 63 character set the internal octal representation for colon (:) is 63g, and tti 


e internal octal repre 


sentation for percent (%) is 


7404g. (The characters reverse posiitons.) 







A-2 
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TABLE A-2. 


CDC AND ASCII 63- AND 64- 


:haracter sets 






BASIC 


nicnlav 


CDC 




ASCII 




Character 


Character 
Abbreviation* 


Decimal 
Code ** 


U 1 3 piety 

Code 
(Octal) 


Graphic 


Hollerith 
Punch 
(026) 


External 
BCD 
Code 


Graphic 
Subset 


Punch 
(029) 


Code 
(Octal) 


: (colon)*** 




58 


00 § 


: (colon)+++ 


8-2 


00 


: (colon)+++ 


8-2 


072 


A 


UCA 


65 


01 


A 


12-1 


61 


A 


12-1 


101 


B 


UCB 


66 


02 


B 


12-2 


62 


B 


12-2 


102 


c 


UCC 


67 


03 


C 


12-3 


63 


C 


12-3 


103 


D 


UCD 


68 


04 


D 


12-4 


64 


D 


12-4 


104 


E 


UCE 


69 


05 


E 


12-5 


65 


E 


12-5 


105 


F 


UCF 


70 


06 


F 


12-6 


66 


F 


12-6 


106 


G 


UCG 


71 


07 


G 


12-7 


67 


G 


12-7 


107 


H 


UCH 


72 


10 


H 


12-8 


70 


H 


12-8 


110 


1 


UCI 


73 


11 


1 


12-9 


71 


1 


12-9 


111 


J 


UCJ 


74 


12 


J 


11-1 


41 


J 


11-1 


112 


K 


UCK 


75 


13 


K 


11-2 


42 


K 


11-2 


113 


L 


UCL 


76 


14 


L 


11-3 


43 


L 


11-3 


114 


M 


UCM 


77 


15 


M 


11-4 


44 


M 


11-4 


115 


N 


UCN 


78 


16 


N 


11-5 


45 


N 


11-5 


116 





UCO 


79 


17 


O 


11-6 


46 


O 


11-6 


117 


P 


UCP 


80 


20 


P 


11-7 


47 


P 


11-7 


120 


Q 


UCQ 


81 


21 


Q 


11-8 


50 


Q 


11-8 


121 


R 


UCR 


82 


22 


R 


11-9 


51 


R 


11-9 


122 


S 


UCS 


83 


23 


S 


0-2 


22 


S 


0-2 


123 


T 


UCT 


84 


24 


T 


0-3 


23 


T 


0-3 


124 


U 


UCU 


85 


25 


U 


0-4 


24 


U 


0-4 


125 


V 


UCV 


86 


26 


V 


0-5 


25 


V 


0-5 


126 


w 


ucw 


87 


27 


w 


0-6 


26 


w 


0-6 


127 


X 


ucx 


88 


30 


X 


0-7 


27 


X 


0-7 


130 


Y 


UCY 


89 


31 


Y 


08 


30 


Y 


0-8 


131 


z 


ucz 


90 


32 


z 


0-9 


31 


z 


0-9 


132 







48 


33 








12 








060 


1 




49 


34 


1 


1 


01 


1 


1 


061 


2 




50 


35 


2 


2 


02 


2 


2 


062 


3 




51 


36 


3 


3 


03 


3 


3 


063 


4 




52 


37 


4 


4 


04 


4 


4 


064 


5 




53 


40 


5 


5 


05 


5 


5 


065 


6 




54 


41 


6 


6 


06 


6 


6 


066 


7 




55 


42 


7 


7 


07 


7 


7 


067 


8 




56 


43 


8 


8 


10 


8 


8 


070 


9 




57 


44 


9 


9 


11 


9 


9 


071 


+ 




43 


45 


+ 


12 


60 


+ 


12-8-6 


053 


- 




45 


46 


- 


11 


40 


- 


11 


055 


# 




42 


47 


« 


1 1 -8-4 


54 


* 


11-8-4 


052 


/ 




47 


50 


/ 


0-1 


21 


/ 


0-1 


057 


( 




40 


51 


( 


0-8-4 


34 


( 


12-8-5 


050 


) 




41 


52 


) 


12-8-4 


74 


) 


11-8-5 


051 


$ 




36 


53 


$ 


1 1 -8-3 


53 


$ 


11-8-3 


044 


— 




61 


54 


= 


8-3 


13 


= 


8-6 


075 


SP (space) 




32 


55 


blank 


no punch 


20 


blank 


no punch 


040 


, (comma) 




44 


56 


, (comma) 


0-8-3 


33 


, (comma) 


0-8-3 


054 


. (period) 




46 


57 


. (period) 


12-8-3 


73 


. (period) 


12-8-3 


056 


# 




35 


60 


= 


0-8-6 


36 


# 


8-3 


043 


[ 




91 


61 


I 


8-7 


17 


[ 


12-8-2 


133 


„J ++ 




93 


62 


] 


0-8-2 


32 


] 


11-8-2 


135 


%ttt 




37 


63+++ 


%+++ 


8-6 


16 


„ %ttt 


0-8-4 


045 


" (quote) 


QUO 


34 


64 


# 


8-4 


14 


" (quote) 


8-7 


042 


(underline) 


UND 


95 


65 


r* 


0-8-5 


35 


(underline) 


0-8-5 


137 


1 




33 


66 


V 


11-0 


52 


j 


12-8-7 


041 


& 




38 


67 


A 


0-8-7 


37 


& 


12 


046 


' (apostrophe) 




39 


70 


t 


11-8-5 


55 


' (apostrophe) 


8-5 


047 


? 




63 


71 


4- 


11-8-6 


56 


7 


0-8-7 


077 


< 




60 


72 


< 


12-0 


72 


< 


12-8-4 


074 


> 




62 


73 


> 


1 1 -8-7 


57 


> 


0-8-6 


076 


@ 




64 


74 


£ 


8-5 


15 


@ 


8-4 


100 


\ 




92 


75 


a 


12-8-5 


75 


\ 


0-8-2 


134 


/s (circumflex) 




94 


76 


— i 


12-8-6 


76 


/"-(circumflex) 


11-8-7 


136 


; (semicolon) 1 


59 


77 


; (semicolon) 


12-8-7 


77 


; (semicolon) 


11-8-6 


073 


+The BASIC character abbreviation can be used only with the ORD function. 






' 'These decimal codes are the values returned by the ORD function, used by the CHR$ function, and used fo 


string comparisoi 


i when 


the native collating sequence is in effect and the normal (not ASCII) character set is in use. 






TTT ln installations using a 63 character set, display code 00 has no associated graphic or card code; display code 


63 is the colon 




(8-2 punch); the % character and related card code; do not exist and translations yield a blank (55g). 






§ Twelve zero bits at the end of a 60-bit word in a zero-byte record are an end-of -line or end-of -record marl 


: rather than two c 


:olons. 
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DIAGNOSTICS 



B 



BASIC produces three categories of diagnostic messages: 
dayfile messages, compile-time diagnostics, and 
execution-time diagnostics. Tables B-l through B-4 list 
the diagnostics. 

DAYFILE MESSAGES 

When a job is operating interactively, dayfile messages are 
displayed at the terminal. In contrast, dayfile messages 
for a batch job are appended to the output file for the job. 
Special control statements are required to access the 
dayfile of a job submitted by using the NOS command 
SUBMIT. (See section 12, Batch Operations.) 

Dayfile messages are listed in table B-l. BASIC 
automatically increases its memory field length as required 
up to the maximum allowed; therefore, this maximum is 
the field length referred to in the dayfile messages. 



COMPILE-TIME DIAGNOSTICS 

While compiling or translating a program into object code, 
BASIC checks the source code for such things as incorrect 
syntax, improper use of statements, and missing or illegal 
arguments. If any of these checks fail, the program (in 
most cases) compiles unsuccessfully and an error message, 
indicating the nature of the problem, is returned to the 
terminal from where the program originated. The 
messages that can be produced during program compilation 
are listed in table B-2. These messages are printed in the 
following format: 

message AT line-number 



With the following exceptions, all compile-time diagnostics 
listed in table B-2 inhibit program execution. The 
messages OBSOLETE FORM, LINES TRUNCATED AT 150 
CHARACTERS, WARNING - FUNCTION REDEFINITION, 
and WARNING - FUNCTION REFERENCE BEFORE 
DEFINITION are warning types of diagnostics that do not 
inhibit program execution. The program that contains 
compilation errors can be forced to execute by specifying 
the DB=B parameter in the BASIC control statement. 



EXECUTION-TIME DIAGNOSTICS 

BASIC allows two modes of execution-time error 
processing. During normal error processing, control is 
returned to the operating system. If the program has 
executed an ON ERROR statement, the program retains 
control. The program can then inspect the error number by 
use of the ESM function. 

Errors 100, 106, and 115 can be recovered from only once. 
Should these errors occur a second time during the same 
execution period, the BASIC program aborts without 
transferring control to the ON ERROR address. 



Execution-time diagnostics are listed in alphabetical order 
in table B-3. These messages are printed in the following 
format: 

message AT line-number 

For ease of reference, diagnostics are listed by error 
numbers in table B-4. 



TABLE B-l. DAYFILE MESSAGES 



Message 


Significance 


Action 


BAD CONTROL CARD 
ARGUMENT-parm 

BASIC COMPILATION 
ERRORS 

BASIC EXECUTION 
ERROR 

INPUT FILE EMPTY OR 
MISP0SITI0NED 

FIELD LENGTH TOO 
SHORT FOR BASIC 

FL TOO SMALL FOR 
EXECUTION 


The specified control statement parameter or 
the parameter value is invalid. 

Indicates that errors occurred during 
compilation. 

An error has terminated program execution. 

Input file is empty or positioned at end-of- 
information. 

The maximum field length is too short to allow 
compilation. 

The program compiled correctly but there was 
not enough assigned memory for execution. This 
condition is usually caused by excessive array 
dimensions. This message only occurs in 
compile- to -memory and execute mode. 


Correct the parameter. 
Correct the errors. 
Correct the error. 
Rewind the input file. 
Increase field length. 
Increase field length. 
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TABLE B-2. COMPILE TIME DIAGNOSTICS 



Message 



Significance 



Action 



BLANK FILE 
STATEMENT 

BLANK CLOSE 
STATEMENT 

DEF WITHIN DEF 



DELIMITER 
OVERFLOW 

DUPLICATE LINE NO 

END NOT LAST 



FL TOO SMALL FOR 
COMPILATION 



FNEND MISSING 



FOR NESTED TOO 
DEEP 

FOR WITHOUT NEXT 



ILLEGAL ARGUMENT 
IN ASC 



ILLEGAL BOUND 



ILLEGAL CHARACTER 



ILLEGAL 
COMPARISON 

ILLEGAL EXTERNAL 
NAME 



ILLEGAL FILE NAME 

ILLEGAL FILE 
NUMBER 

ILLEGAL FN NAME 
ILLEGAL LINE NO 



File ordinal or name missing in a 
file statement. 

The CLOSE statement does not specify 
which file to close. 

A DEF statement occurs before the 
current multiple-line function defi- 
nition is terminated by FNEND. 

More than three characters are 
specified in the DELIMIT statement. 

The same line number was used twice. 

An END statement is placed prior to 
the last statement. 



The maximum field length allowed is 
too small to allow compilation. The 
more compilation options requested, 
the more memory required. The B 
option requires more memory than the L. 

A multiple-line function is not ter- 
minated by FNEND before the end of the 
program. 

FOR statements are nested more than 
ten deep. 

A FOR statement has no balancing 
NEXT statement. 

The argument in an ASC function is not 
a character or a defined abbreviation 
for a character. 

An array bound declared in a DIM state- 
ment is < or > 131070. If OPTION 
BASE 1 was specified, the array bound 
cannot be = 0. 

BASIC encountered an unrecognizable 
character. 

A numeric quantity was compared to a 
string in an IF statement. 

A name in a CALL statement does not 
begin with a letter, or it is longer 
than seven characters. 

The specified name is not allowed as a 
file name. 

The number in a FILE statement is < 
or > (2lB-l). 

The user function name is not in the 
form FNx or FNx$. 

A line number is > 99999. 



Correct and rerun. 



Correct and rerun. 



Move the DEF statement outside 
of the multiple- line function. 



Specify three or fewer char- 
acters. 

Change one of the line numbers. 

Remove the END statement and 
replace it with a STOP state- 
ment if necessary. 

Increase field length. 



Supply an FNEND statement. 



Rewrite so that no more than ten 
FOR statements are nested. 

Supply a NEXT statement. 



Replace the argument with a valid 
one. 



Replace the array bound with a 
valid one. 



Replace the character with a 
valid one. 

Replace the comparison with a 
valid one. 

Correct the name. 



Replace the file name with 
a valid one. 

Replace the file number with 
a valid one. 

Correct the function name. 



Replace the line number with 
one < 99999. 
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TABLE B-2. COMPILE TIME DIAGNOSTICS (Contd) 



Message 



ILLEGAL LINE REF 
ILLEGAL MARGIN 
ILLEGAL NUMBER 
ILLEGAL OPERAND 



ILLEGAL 
REDIMENSIONS 



ILLEGAL STATEMENT 



ILLEGAL STATEMENT 
WITHIN IF 



ILLEGAL STRING 



ILLEGAL USE OF 
LEFT PAREN 



ILLEGAL USING 



INVALID BASE 
STATEMENT 



INVALID BASE 
VALUE 

INVALID CHANGE 



LINES TRUNCATED 
AT 150 CHARACTERS 



LINES OUT OF 
ORDER 

MISSING LINE NO 



NEXT WITHOUT FOR 



NON IMAGE 
REFERENCED 



Significance 



Referenced line number is incorrectly 
written or > 99999. 

The margin specified in a MARGIN 
statement is < or > 131070. 

A numeric constant is incorrectly 
written. 

A string is used in an arithmetic 
expression. 

An array specified in a DIM statement 
has been dimensioned in a previous DIM 
statement, or a statement attempts to 
change the number of dimensions (sub- 
scripts) of an array. 

A statement does not begin with a 
recognizable word or is written 
incorrectly. 

The statement is not allowed as an 
object of THEN or ELSE in an IF THEN 
ELSE statement. The object of THEN 
or ELSE must be executable. 

A string constant is incorrectly 
written. 

An attempt was made to use an argument 
with a system function when none was 
required. 

USING clause is not allowed where it is 
written or it is not allowed at all. 

OPTION BASE statement appears after the 
DIM statement or array reference. 



Base value is not or 1. 



CHANGE statement arguments, are other 
than string-expression TO one-dim- 
array or one-dim-array TO string- 
expression. 

Some lines are greater than 150 char- 
acters. Although lines were truncated, 
program compilation continued. 

Line numbers are not in ascending 
order. 

A statement was written without a line 
number. 

A NEXT statement has no balancing FOR 
statement. 

The line number referenced in the 
USING clause is not an image statement. 



Action 



Correct the line number 
reference. 

Specify the margin with a valid 
value. 

Write the constant correctly. 



Write the expression correctly. 



Delete the duplicate DIM state- 
ments or use the proper number 
of subscripts. 



Rewrite the statement. 



Replace the invalid statement 
with a valid one. 



Rewrite the string correctly. 



Remove the argument. 



Correct the placement of the 
USING clause. 

Place the OPTION BASE statement 
before the DIM statement or 
array reference. 

Correct the value with the 
OPTION BASE statement. 

Replace invalid arguments with 
valid ones. 



Shorten the lines. 



Renumber lines in ascending 
order. 

Rewrite the statement with a line 
number. 

Supply a FOR statement. 



Change the line number to one 
that references an image state- 
ment. 
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TABLE B-2. COMPILE TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Acti on 


NOT ENOUGH 
ARGUMENTS 


The number of arguments in a function 
reference is less than the number ex- 
pected by the function. 


Reference the function with 
with the proper number of 
arguments. 


OBSOLETE FORM 


The statement form used is no longer 
supported; compilation continues. 


Use proper statement form. 


PARAMETER LIST 
CONFLICT 


Too many or too few parameters for the 
function reference; a string is used 
where the function expects a number; or 
a number is used where the function 
expects a string. 


Replace the invalid parameter 
list with a valid one. 


READ WITHOUT 
DATA 


The program contains a READ statement 
but no DATA statement. 


Include DATA statements. 


RECURSIVE FN 


A user function calls itself. This is 
not allowed. 


Eliminate the recursion. 


REDEFINITION OF 
COLLATE 


The program contains more than one 
OPTION COLLATE statement. 


Remove the excessive OPTION 
COLLATE statement(s). 


SET VALUE ILLEGAL 


The value in the SET statement is spec- 
ified as a string or is not specified 
at all. 


Replace the invalid value with 
a valid one. 


TOO MANY 
ARGUMENTS 


The number of arguments in a function 
reference is greater than the number 
expected by the function. The number 
of arguments in a CALL statement is 
greater than 20. 


Replace the argument list with 
one containing the proper number 
of arguments. 


TOO MANY FILES 


More than 13 FILE statements are in 
the program. 


Use fewer FILE statements. 


TOO MANY FORMALS 


The DEF statement contains more than 
20 formal parameters. 


Rewrite the DEF statement with 20 
or fewer parameters. 


TRANSFER INTO DEF 


The statement refers to a line that 
is part of a multiple-line function 
definition. 


Change the statement reference. 


TRANSFER OUT OF 
DEF 


A statement within a multiple-line 
function definition refers to a line 
number not contained in the DEF... 
FNEND block. 


Change the statement reference. 


UNDEFINED IN REF 


The user function referenced is 
undefined. 


Refer to a defined function. 


UNDEFINED LINE 
REF 


The line number referenced does not 
exist. Several statements can refer- 
ence the same nonexistent line; only 
the first reference is diagnosed. 


Refer to a defined line number. 


WARNING - FUNCTION 
REDEFINITION 


A user-defined function was redefined 
within the program; compilation con- 
tinues. 


Remove the affected function 
reference. 


WARNING - FUNCTION 
REFERENCE BEFORE 
DEFINITION 


A user-defined function was referenced 
before it was defined with DEF; com- 
pilation continues. 


Move the function definition 
ahead of the function reference. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS 



Message 


Error 
Number 


Significance 


Action 


ARGUMENT IS POLE IN COT 


148 


The argument for the COT function 
is a multiple ofir; therefore, 
the results are undefined. 


Make sure the argument is 
not a multiple of jr. 


ARGUMENT IS POLE IN TAN 


153 


The argument for the TAN function 
is a multiple of -nfl; therefore, 
the results are undefined. 


Make sure the argument is 
not a multiple of 7r/2. 


ARGUMENT NEGATIVE IN LOG 


154 


The argument for the LOG function 
is negative. 


Make sure the argument is 
positive. 


ARGUMENT NEGATIVE IN SQR 


160 


The argument for the SQR function 
is negative. 


Make sure the argument is 
positive. 


ARGUMENT TOO LARGE IN COS 


152 


The argument for the COS function 
must be less than 2.21069E14. 


Make sure the argument is 
less than 2.21069E14. 


ARGUMENT TOO LARGE IN COT 


149 


The argument for the COT function 
must be less than 2.21069E14. 


Make sure the argument is 
less than 2.21069E14. 


ARGUMENT TOO LARGE IN EXP 


156 


The argument for the EXP function 
must be less than 2.21069E14. 


Make sure the argument is 
less than 2.21069E14. 


ARGUMENT TOO LARGE IN SIN 


150 


The argument for the SIN function 
must be less than 2.21069E14. 


Make sure the argument is 
less than 2.21069E14. 


ARGUMENT TOO LARGE IN TAN 


151 


The argument for the TAN function 
must be less than 2.21069E14. 


Make sure the argument is 
less than 2.21069E14. 


ARGUMENT IS ZERO IN LOG 


155 


The argument for the LOG function 


Make sure the argument is 






is zero. 


nonzero. 


ARRAY TOO SMALL IN CHANGE 


163 


Array in the CHANGE statement is 
not large enough to hold the 
string length plus one word for 
each character of the string. 


Increase the size of the 
array. 


AUTO RECALL STATUS 
MISSING 


116 


Internal error. 


Follow site procedures 
for reporting and re- 
solving system problems. 


BAD DATA IN READ 


126 


A string was read when a number 
was expected, or vice versa. 


Correct the DATA state- 
ment. 


BAD FORMAT FIELD 


127 


The current data conversion field 
in the image is for string data 
only, but the item to be printed 
is a number, or vice versa. 


Correct the print image. 


BAD TAB ARG - 1 USED 


197 


A TAB function was issued that 
contained a bad argument. A tab 
of 1 (col 1) was assigned. Exe- 
cution continues. 


Change the TAB setting, 
or take no action. 


CHAIN FILE NOT FOUND 


144 


The file referenced in CHAIN does 
not exist as a local or permanent 
file. 


Check the spelling of the 
file name. 


COMPILATION ERROR 


119 


The statement caused a compila- 
tion error; therefore, it cannot 
be executed. This error occurs 
only if the DB=B option is 
specified. 


Correct the statement. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 


Error 
Number 


Significance 


Action 


CPU ERROR EXIT 00 


107 


An illegal instruction was exe- 
cuted. Could result from an 
error in a FORTRAN or COMPASS 
subroutine. 


Correct the subroutine. 
If there are no errors in 
the subroutine, follow 
site-defined procedures 
for reporting software 
errors or operational 
problems. 


CPU ERROR EXIT 01 


108 


Address is out-of-range. Can 
result from an error in a FORTRAN 
or COMPASS subroutine. 


Correct the subroutine. 
If there are no errors in 
the subroutine, follow 
site-defined procedures 
for reporting software 
errors or operational 
problems. 


CPU ERROR EXIT 03 


110 


Address is out-of-range, or 
infinite operand. 


Correct the subroutine. 
If there are no errors in 
the subroutine, follow 
site-defined procedures 
for reporting software 
errors or operational 
problems. 


CPU ERROR EXIT 05 


112 


Indefinite operand or address is 
out-of-range. Could result after 
division of zero by zero if an ON 
ERROR was used to continue execu- 
tion. Could result from an error 
in a FORTRAN or COMPASS subrou- 
tine that modified the parameters 
passed. 


Correct the calculation 
that generated the faulty 
number or change ON ERROR 
code to correct the 
faulty variable before 
using it again, or cor- 
rect the subroutine. 


CPU ERROR EXIT 06 


113 


Indefinite or infinite operand. 
Could result after division of 
zero by zero if an ON ERROR was 
used to continue execution. 
Could result from an error in a 
FORTRAN or COMPASS subroutine 
that modified the parameters 
passed. 


Correct the calculation 
that generated the faulty 
number or change ON ERROR 
code to correct the 
faulty variable before 
using it again, or cor- 
rect the subroutine. 


CPU ERROR EXIT 07 


114 


Address is out-of-range, or in- 
definite, operand. Could result 
after division of zero by zero if 
an ON ERROR was used to continue 
execution. Could result from an 
error in a FORTRAN or COMPASS 
subroutine that modified the 
parameters passed. 


Correct the calculation 
that generated the faulty 
number or change ON ERROR 
code to correct the 
faulty variable before 
using it again, or cor- 
rect the subroutine. 


DET USED BEFORE INV 


162 


DET without a parameter was 
called before a square numeric 
matrix was inverted by INV. 


Before issuing DET, in- 
vert a matrix (with INV), 
or supply a parameter to 
DET. 


DIVISION BY ZERO 


125 


An attempt was made to divide by 
zero. 


Make sure no division by 
zero occurs. 


ECS OR CY 170 PARITY 
ERROR 


101 


A hardware error occurred. 


Follow site procedures 
for reporting and re- 
solving system problems. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 



Error 
Number 



Significance 



Action 



END OF DATA 



END OF DATA ON FILE 



ERROR IN CHANGE 



120 



136 



164 



FILE ALREADY OPEN 



FILE CLOSED/UNDEFINED 



FILE NUMBER ALREADY IN 
USE 



GOSUB NESTED TOO DEEP 



HUNG IN AUTO RECALL 



ILLEGAL ACTION ON BINARY 
FILE 



ILLEGAL ACTION ON CODED 
FILE 



ILLEGAL CHAIN PARAMETER 



ILLEGAL CHARACTER 



143 

141 

142 

123 
117 

175 

171 

145 

165 



ILLEGAL CHR$ ARGUMENT 



ILLEGAL DATA ON FILE 



196 



135 



A READ statement was executed 
after the internal data block was 
exhausted. 

A READ* or INPUT# statement was 
executed after file data was 
exhausted. 

The length as specified in the 
first element of the array that 
is being changed to a string is 
greater than 131070, less than 0, 
or an element is not a valid 
character code. 

The file name specified in the 
FILE statement has been assigned 
a file number in a previous FILE 
statement and is still in use. 

The file number referenced does 
not correspond to an active file. 



The file number specified in the 
FILE statement is already 
assigned to an open, active file. 

More than 40 GOSUB statements are 
nested. 

Internal system error. 



A DELIMIT, MARGIN, OR SETDIGITS 
was attempted on a binary file. 



A SET statement or LOC or LOF 
function was attempted on a coded 
file. 

A parameter in the CHAIN state- 
ment is incorrectly formed, or 
the referenced file is assigned 
or connected to the terminal. 

A string in a string comparison 
or a string that is referenced in 
a CHANGE statement contains an 
invalid character; usually caused 
by processing non-ASCII data in 
ASCII mode, or vice versa. 

Argument does not correspond to 
an ordinal in the collating 
sequence. 

An illegal number or string was 
encountered when INPUT from a 
file was attempted; usually 
caused by reading a string when a 
number was expected. 



Check for end-of-data, or 
supply more data. 



Check for end-of-data, or 
supply more data. 



Specify a valid length. 



Close the file before 
attempting to open it 
again. 



Check the file number or 
activate the file with a 
FILE statement. 

Specify an unused file 
number. 



Nest 40 or fewer GOSUB 
statements. 

Follow site procedures 
for reporting and re- 
solving system problems. 

Do not attempt a DELIMIT, 
MARGIN, or SETDIGITS on a 
binary file. 

Do not attempt a SET, LOC 
or LOF on a coded file. 



Form the parameter 
correctly. 



Eliminate the invalid 
character or change the 
mode. 



Correct the argument. 



Check data on the file. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 



Error 
Number 



Significance 



Action 



ILLEGAL DATA, RETYPE 
INPUT 



ILLEGAL FILE NAME 



ILLEGAL FILE NUMBER 



ILLEGAL INPUT ON FILE 



ILLEGAL LABEL 



ILLEGAL LPAD$ ARGUMENT 



ILLEGAL MARGIN 



ILLEGAL ORD ARGUMENT 



ILLEGAL OUTPUT ON FILE 



ILLEGAL RPAD$ ARGUMENT 



ILLEGAL RPT$ PARAMETER 



ILLEGAL SET VALUE 



ILLEGAL SUBSTR PARAMETER 



133 

139 
138 

137 

170 

192 
131 
194 

130 



193 

191 
172 
169 



An improperly formed number or 
string was entered; usually 
caused by entering a string when 
a number was expected. 

The file name is not allowed as a 
NOS file name. 

The file number referenced is 
less than zero or is greater than 
131071. 

The input operation, READ or IN- 
PUT, is not valid for the current 
mode of the file (READ on a coded 
file, INPUT on a binary file, 
READ or INPUT on an output file). 

The label referenced in a JUMP 
statement or NXL function does 
not exist, is greater than 99999, 
or is the label of a REM 
statement. 

The LPAD$ numeric argument is 
negative, indefinite, or 
infinite. 

Margin specified is outside the 
allowable range of through 
131070. 

The value of the ORD argument is 
neither a valid character nor a 
valid character mnemonic for 
characters in the collating 
sequence. 

The output operation, PRINT or 
WRITE, is not valid for the cur- 
rent mode of the file (WRITE on a 
coded file, PRINT on a binary 
file, PRINT or WRITE on an input 
file). An attempt to WRITE or 
PRINT on a read-only permanent 
file causes this error. 

The RPAD$ numeric argument is 
negative, indefinite, or 
infinite. 

The RPT$ parameter is negative, 
indefinite, or infinite. 

The SET value is negative, in- 
definite, or infinite. 

Parameters specified in the 
SUBSTR function are outside the 
legal range as determined by the 
actual string length. 



Reenter the entire line. 



Choose another name. 



Use a file number within 
the proper range. 

Use the RESTORE statement 
to permit change of mode. 



Correct the label. 



Correct the argument. 



Specify the margin within 
the range of through 
131070. 

Correct the argument. 



Restore the file to 
change mode. 



Correct the argument. 



Correct the parameter. 

Correct the parameter. 

Specify parameters within 
the allowable range. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 



Error 
Number 



Significance 



Action 



INDEFINITE OPERAND 



111 



INFINITE OPERAND 



109 



INPUT WITHIN INPUT 



195 



I/O TIME LIMIT 
MASS STORAGE LIMIT 

MATRIX DIMENSION ERROR 

MEMORY OVERFLOW 
NEGATIVE NUMBER TO POWER 



NO FILE SPACE. ADD 
ANOTHER FILE STMT 

NO FORMAT FIELD SPECIFIED 



NONNUMERIC STRING 



NOT ENOUGH DATA, REENTER 
OR TYPE IN MORE 



XXX NOT IN PPLIB 



106 

118 

161 

166 
158 

140 
128 

167 
134 

103 



An indefinite floating-point 
value was used in a calculation. 
Could result after division of 
zero by zero if an ON ERROR was 
used to continue execution. 
Could result from an error in a 
FORTRAN or COMPASS subroutine 
that modified the parameters 
passed. 

An invalid floating-point number 
was used in a calculation. Could 
result from division by zero if 
ON ERROR was used to continue. 
Could result from an error in a 
FORTRAN or COMPASS subroutine 
that modified the parameters 
passed. 

INPUT statement includes a 
function reference that attempts 
to execute another INPUT state- 
ment. No diagnostic is returned 
if the second reference INPUT is 
in another file. 

Time limit exceeded. 

Mass storage limit exceeded. 



Dimension inconsistency in one of 
the MAT statements or the dimen- 
sion is greater than 100 times 
100 in the INV function. 

Field length exceeded. 

An attempt was made to raise a 
negative number to a non integer 
exponent. 

All declared fill buffers are 
used. 

The print image does not contain 
a data conversion field but the 
print list specifies that data is 
to be printed. 

The string in the VAL function is 
nonnumeric. 

Not enough data was entered in 
response to an input request. 



System software malfunction. 



Correct the calculation 
that generated the faulty 
number; change ON ERROR 
code to correct the 
faulty variable before 
using it again; or 
correct the subroutine. 



Correct the calculation 
that generated the faulty 
number; change ON ERROR 
code to correct the 
faulty variable before 
using it again; or cor- 
rect the faulty sub- 
routine. 

Eliminate one of the 
INPUT statements. 



Increase the time limit. 

Increase the mass storage 
limit. 

Correct the dimensioning 
error. 



More field length needed. 
Correct the error. 



Add another FILE state- 
ment or CLOSE a file. 

Rewrite the print image 
to include a data con- 
version field. 



Make the string numeric. 



Either reenter the entire 
input line or enter a de- 
limiter followed by the 
additional data items. 

Follow site procedures 
for reporting and re- 
solving system problems. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 


Error 
Number 


Significance 


Action 


ON EXPRESSION OUT OF 
RANGE 


122 


The expression in the ON state- 
ment is negative, zero, or ex- 
ceeds the count of line numbers. 


Make sure the expression 
is valid. 


OPERATOR DROP OR KILL 


105 


The operator dropped or killed 
the program. 


None. 


OPERATOR RERUN 


115 


The operator reran the program. 


None. 


POWER TOO LARGE 


159 


The exponent in an expression is 
such that an overflow occurs. 


Use a smaller exponent. 


PPU ABORT 


102 


A PPU abort occurred. The pro- 
gram was terminated by an oper- 
ating system-detected error. 


Follow site procedures 
for reporting and re- 
solving system problems. 


PP CALL ERROR 


104 


Internal system error. 


Follow site- defined pro- 
cedures for reporting 
software errors or 
operational problems. 


RANDOM ACTION BEYOND EOF 


174 


The SET value is greater than LOF 
or a WRITE operation on a random 
file attempted to extend the file 
length. 


Correct the error. 


RANDOM FILE EMPTY 


173 


A SET was attempted on an empty 
file. 


Correct the error. 


RETURN BEFORE GOSUB 


124 


A RETURN statement was encoun- 
tered with no GOSUB in effect. 


Add a GOSUB or remove the 
RETURN. 


STRING OVERFLOW 


168 


An attempt was made to create a 
string that contains more than 
131070 (6-bit) characters. 


Use two or more strings 
that are shorter than the 
limit. 


SUBSCRIPT ERROR 


121 


An attempt was made to reference 
an element outside the bounds of 
an array. 


Use a correct subscript 
value or specify a larger 
array with a DIM state- 
ment. 


TAPE FILE IS NOT ALLOWED 


147 


An attempt was made to use a tape 
file. 


Use mass storage for the 
file. Copy an existing 
tape file to mass storage 
before using with BASIC. 


TIME LIMIT EXCEEDED 


100 


The program time limit was 
exceeded. 


Increase the time limit. 
Check the program for a 
nonending loop. 


TOO MUCH DATA, RETYPE 
INPUT 


132 


Too many data items were entered 
in response to an input request. 
All items entered on the last 
type-in are ignored. 


Reenter the entire input 
line. The exact number 
of items requested should 
be entered. 


UNSATISFIED EXTERNAL 
REFERENCE 


129 


An attempt was made to execute a 
CALL statement in compile-to- 
memory mode. 


Use the B and GO options 
on the BASIC control 
statement. 


ZERO TO A NEGATIVE POWER 


157 


Exponent in an expression is neg- 
ative when the mantissa is zero. 


Correct the error. 
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TABLE B-4. EXECUTION TIME DIAGNOSTICS BY ERROR NUMBER 



Error 
Number 



100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 



Message 



TIME LIMIT EXCEEDED 

ECS OR CY 170 PARITY ERROR 

PPU ABORT 

xx NOT IN PPLIB 

PP CALL ERROR 

OPERATOR DROP OR KILL 

I/O TIME LIMIT 

CPU ERROR EXIT 00 

CPU ERROR EXIT 01 

INFINITE OPERAND 

CPU ERROR EXIT 03 

INDEFINITE OPERAND 

CPU ERROR EXIT 05 

CPU ERROR EXIT 06 

CPU ERROR EXIT 07 

OPERATOR RERUN 

AUTO RECALL STATUS MISSING 

HUNG IN AUTO RECALL 

MASS STORAGE LIMIT 

COMPILATION ERROR 

END OF DATA 

SUBSCRIPT ERROR 

ON EXPRESSION OUT OF RANGE 

GOSUB NESTED TOO DEEP 

RETURN BEFORE GOSUB 

DIVISION BY ZERO 

BAD DATA IN READ 

BAD FORMAT FIELD 

NO FORMAT FIELD SPECIFIED 

UNSATISFIED EXTERNAL REFERENCE 

ILLEGAL OUTPUT ON FILE 



Error 
Number 



131 
132 
133 
134 

135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
147 
148 
149 
150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 



Message 



ILLEGAL MARGIN 

TOO MUCH DATA, RETYPE INPUT 

ILLEGAL DATA, RETYPE INPUT 

NOT ENOUGH DATA, REENTER OR TYPE IN 
MORE 

ILLEGAL DATA ON FILE 

END OF DATA ON FILE 

ILLEGAL INPUT ON FILE 

ILLEGAL FILE NUMBER 

ILLEGAL FILE NAME 

NO FILE SPACE. ADD ANOTHER FILE STMT 

FILE CLOSED/UNDEFINED 

FILE NUMBER ALREADY IN USE 

FILE ALREADY OPEN 

CHAIN FILE NOT FOUND 

ILLEGAL CHAIN PARAMETER 

TAPE FILE IS NOT ALLOWED 

ARGUMENT IS POLE IN COT 

ARGUMENT TOO LARGE IN COT 

ARGUMENT TOO LARGE IN SIN 
ARGUMENT TOO LARGE IN TAN 
ARGUMENT TOO LARGE IN COS 
ARGUMENT IS POLE IN TAN 
ARGUMENT IS NEGATIVE IN LOG 
ARGUMENT IS ZERO IN LOG 
ARGUMENT IS TOO LARGE IN EXP 
ZERO TO A NEGATIVE POWER 
NEGATIVE NUMBER TO POWER 
POWER TOO LARGE 

ARGUMENT NEGATIVE IN SQUARE ROOT 
MATRIX DIMENSION ERROR 



19983900 G 



B-ll 



TABLE B-4. EXECUTION TIME DIAGNOSTICS BY ERROR NUMBER (CONTD) 



Error 
Number 


Message 


Error 
Number 


Message 


162 


DET USED BEEORE INV 










173 


RANDOM FILE EMPTY 


163 


ARRAY TOO SMALL IN CHANGE 










174 


RANDOM ACTION BEYOND EOF 


164 


ERROR IN CHANGE 










175 


ILLEGAL ACTION ON BINARY FILE 


165 


ILLEGAL CHARACTER 










191 


ILLEGAL RPT$ PARAMETER 


166 


MEMORY OVERFLOW 










192 


ILLEGAL LPAD$ ARGUMENT 


167 


NONNUMERIC STRING 










193 


ILLEGAL RPAD$ ARGUMENT 


168 


STRING OVERFLOW 










194 


ILLEGAL ORD ARGUMENT 


169 


ILLEGAL SUBSTR PARAMETER 










195 


INPUT WITHIN INPUT 


170 


ILLEGAL LABEL 










196 


ILLEGAL CHR$ ARGUMENT 


171 


ILLEGAL ACTION ON CODED FILE 










197 


BAD TAB ARG - 1 USED 


172 


ILLEGAL SET VALUE 
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GLOSSARY 



Abort - 

The procedure to terminate a program or job when a 
specified condition exists. 

Alphanumeric - 

The letters, digits, and special characters in the 
computer character sets defined in appendix A, tables 
A-l and A-2. 

ASCII - 

American National Standard Code for Information 
Interchange, used under NOS as the ASCII 
128-character set with either 6- or 12-bit characters, 
and under NOS/BE as the ASCII 95-character set with 
8-bit characters. 

BASIC - 

Beginner's all-purpose symbolic instruction code, an 
elementary programming language. 

Batch Processing - 

A processing method that accumulates and processes 
together a number of related input items. 

Breakpoint - 

A designated location in a program where, if reached 
during program execution, a break or suspension in 
execution occurs. 

Character Set - 

The numbers, letters, and symbols having meaning in a 
given device or coding system. 

Compile - 

The procedure that translates a program from a 
high-level programming language, such as BASIC, into 
machine instructions called object code. 

Concatenate - 

The procedure of uniting or linking a series of 
characters; chaining. 

Constant - 

A value assumed to be fixed or invariable in a given 
operation or calculation. 

CYBER Interactive Debug (CID) - 

The facility that externally monitors and controls 
execution of a program, usually from an interactive 
terminal. 

Debug - 

The procedure to trace, detect, and eliminate 
mistakes in a program or in any software. 

Direct Access File - 

The permanent file, itself, that is made local. 

Display Code - 

An internal code set that is used by CDC CYBER 70, 
CYBER 170, and 6000 Series computers to represent 
alphanumeric and special characters. (Refer to tables 
A-l and A-2 in appendix A.) 



End-of-File (EOF) - 

A boundary within a sequential file; the end of a file. 

End-of-Information (EOI) - 

The definition of the actual end of a named file. 

End-of-Line (EOL) - 

A special indicator that marks the end of each line or 
card image. EOLs are automatically written on coded 
files created by BASIC. See Coded Output. 

End-of-Record (EOR) - 

A special indicator that marks the end of a logical 
record. 

File - 

A collection of data with an associated name. 

Function - 

A procedure that returns a value; invoked by a 
function reference in an expression. 

Indirect Access File - 

A separate local copy of the permanent file (used 
under NOS). 

Input/Output (I/O) - 

The equipment used to process data with a computer 
or the data processed and produced by the computer. 

Interactive - 

A two-way exchange of information; alternating 
input/output dialog; contrast with batch processing. 

Interrupt - 

The procedure to stop a running program in such a way 
that it can be resumed at a later time. The interrupt 
key depends on the terminal and system that is being 
used. 

Local File - 

Any file assigned to a job; this includes all temporary 
(indirect access permanent files), all direct access 
permanent files, and all files that are not permanent. 

Login - 

The procedure to initially establish a terminal session. 

Logoff - 

The procedure used to end a terminal session. 

Null String - 

A data string that has a length of zero. 



On-Line - 

The condition when equipment communicates with the 
host computer. 



Parameter Variable - 

A variable that is given a specific value for a 
particular purpose or process. 
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Permanent File - 

A file that remains in the operating system permanent 
file system after the user logs off. 



Record - 

A collection of related items of data treated as a 
unit. A complete set of such records can form a file. 



Statement - 

Each line of a program that begins with a line number. 

String - 

A sequence of contiguous characters or bits treated as 
a unit. 

String Variable - 

A variable that holds string values. 

Subscripted Variable - 

A representation for one value in an array of values; 
consists of numeric and string variables. 

Substring - 

A character string that is part of another string. 



Temporary File - 

A file that is released from the NOS system when the 
user logs off. It is a local file of an indirect access 
permanent file. 

Time-Sharing - 

The allocation of available computer time among all 
users, such that each user has equivalent access to 
system resources. 

Trap (noun) - 

The established mechanism for detecting a specified 
condition and causing a transfer of control. In CID, 
the location to which control is transferred is in CIO 
itself. 



Trap (verb) - 

The automatic transfer of control to a predefined 
location upon the detection of some specified 
condition. 



Variable - 

An established identifer that represents a value or 
values that can change during program execution. 



C-2 
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NOS FILE HANDLING 



A file is a collection of information with an associated 
name. A BASIC program is an example of a file. A BASIC 
program frequently reads in another file containing data. 
All or part of the output from a program can be stored in a 
file instead of being printed at the terminal. This file can 
then be listed on a teletypewriter or on a high-speed 
printer, or simply used as data for another program. 

NOS recognizes two types of files, local and permanent. A 
local file is any file assigned to a job; this includes all 
temporary and all attached direct access files. Before any 
file can be used, it must be made local. A permanent file 
is one that remains in the NOS permanent file system after 
the system is logged off. There can be both a local and a 
permanent copy of the same file. After the system is 
logged off, the permanent copy is retained and the local 
copy is released. 

There are two types of permanent files, indirect access and 
direct access. An indirect access file is used indirectly; it 
is always a separate local copy of the permanent file that 
is used. With a direct access file, the permanent file (not a 
copy) is made local. (See figure D-l.) An indirect access 
file is created by using the NOS system commands: 
REPLACE and SAVE; a local copy is made available to the 
user by either the OLD, GET, or LIB commands; the local 
copy is updated by the REPLACE command and released 
from use (but not from permanent storage) by the RETURN 
command. A direct access file is created by the DEFINE 
command; it is made local by the ATTACH command and 
released from use by the RETURN command. The PURGE 
command is used to remove from permanent storage both 
direct and indirect access files. 



When a file is made local, it becomes either a primary or a 
local file. The local file established by a NEW, OLD, or LIB 
command, under the BASIC subsystem, is always primary. 
The NEW command creates a primary file; the OLD and LIB 
commands obtain a primary file from an indirect access 
file. There can be only one primary file and usually this 
file is the program to be run. When the commands LIST, 
SAVE, or RUN are issued, the operating system assumes it 
refers to the primary file. The GET or ATTACH 
commands establish a local file. To refer to a local file 
with a NOS command, the file name must be specified, as 
in: LIST, F=DAT, or SAVE.DAT. In SAVE.DAT, file DAT 
is retained as a permanent file; DAT can be a primary or 
local file. When the current primary file is released by 
entry of the OLD, NEW, or LIB commands, all primary and 
local files are released unless the ND (no drop) is included 
in the command. 



NOS FILE CONTROL COMMANDS 



The following subsections include brief descriptions of 
some NOS file manipulation commands. Specific 
information can be obtained pertaining to permanent files 
by using the CATLIST command described in the Network 
Products Interactve Facility reference manual or in the 
NOS Time-Sharing User's reference manual. 

If the following commands are entered in batch mode, they 
should end with a period. The following commands are 
divided into those that access direct access permanent 
files and those that access indirect access permanent files. 





Local Files 
(temporary) 


Commands 
OLD 


Permanent Files 


Commands 

LIST 

RETURN 

SAVE 


Primary 
(1 only) 


Indirect Access 


ATTACH* 


etc. 






LIST,F=lfn* 
RETURN,lfn 
SAVEJfn 


Local 


Direct Access 


etc. 




* Ifn is the name of a 

* same copy 


local file 





Figure D-1. NOS Files 
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DIRECT ACCESS PERMANENT FILES 



Figure D-2 illustrates the formats for the commands 
DEFINE and ATTACH, which are used to access direct 
access permanent files under NOS. The DEFINE command 
creates an empty permanent file pfn with a local file name 
(figure D-2). The ATTACH command makes a permanent 
file pfn a local file (figure D-2). For a description of the 
parameters not explained for ATTACH, see the DEFINE 
command. 



INDIRECT ACCESS PERMANENT FILES 

Figure D-3 illustrates the formats for the commands that 
access the indirect access permanent files under NOS. For 
a description of the statement parameters shown in these 
formats, see the DEFINE and CHANGE commands 
(figures D-2 and D-3). 



The SAVE command creates an indirect access permanent 
file, permits a copy of the specified local file to be 
retained on the permanent file system, and specifies the 
subsystem to be associated with the file. 

The GET command retrieves a copy of a specified indirect 
access file for use as a local file. To reference the local 
file by a name other than the pfn, the lfn parameter is 
used. The current primary file remains primary unless the 
file name specified by lfn is that of the current primary 
file. In that case, the contents of the primary file are 
replaced by a copy of pfn, which becomes the new primary 
file. 

The OLD command requests a copy of the specified 
permanent file as a primary file. When a specific 
subsystem is associated with the file, it is selected 
automatically. This occurs only if the file was originally a 
primary file and was saved while a subsystem, other than 
the null subsystem, was active. 



• DEFINE.Ifn=pfn/CT=n,M=m,NA. 



lfn 



pfn 
CT 



M 



If DEFINE is to be used to create an empty direct access permanent file, lfn (local file name) is 
specified only to reference the file by a name other than its permanent file name. If DEFINE is to 
be used to define an existing local file as a direct access file, lfn is the name of the local file. Also, 
if lfn exists, its position is not altered. 

This is the permanent file name. If pfn is omitted, the system assumes lfn = pfn. 

Permanent File Category: 
P = private 
S = semi-private 
PU = public 

File or User Permission: 

W 

m 

RM 

RA 

E 



write permission 
modify permission 
read in modify mode 
read in append mode 
execute file permission 



NA 



If a resource is unavailable, NOS suspends requests until a resource is free. 



ATTACH,lfn=pfn/M=m,NA 



lfn=pfn This is used when desirable to reference an attached file by other than its permanent file name. If a 

current temporary file is referenced as lfn, the contents of that file are lost when the permanent file 
is attached. 

M=M This indicates modify permission. If omitted, the system assumes read permission only. 

NA This allows waiting for the direct access file to become available. If the file is currently being 

accessed, the job is suspended. IAF uses a user break, such as CTL P, to terminate the request. 
Enter STOP to terminate the request under the NOS Time-Sharing system. 



Figure D-2. Direct Access Permanent File Commands 



• D-2 
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SAVE,lf n=pf n/CT=n.M=nii.ss=subsyst,N A . 



GET,lfn=pfn/NA. 



• OLD,lfn=pfn. 

• LIB r lfn=pfn. 

• REPLACE,lfn=pfn/NA. 

• CHANGE,nfn=ofn/CT=n,M=m,ss=subsyst,NA. 

nfn This is the new permanent file name to be assigned. 

ofn This is the current permanent file name. 

CT and M These are to be specified only if they are to be changed. For a description of the command 

parameters, see DEFINE command. 



Figure D-3. Indirect Access Permanent File Commands 



The LIB command requests a copy of specified indirect 
access permanent files from the catalog of a special user 
library; this file becomes a primary file. 

The CHANGE command allows attributes of permanent 
files to be changed without further operation of the file; 
this is valid only for one originator of the file. 

The REPLACE command permits the contents of an 
indirect access permanent file to be replaced with the 
contents of a local file. If pfn does not exist, a new 
permanent file is created. 

EXAMPLE OF FILE CONTROL 
COMMANDS 

Figure D-4 illustrates a series of programs that use the 
system commands to create, reference, list, and purge files 
with a time-sharing terminal. The example is divided into 
three main columns. The leftmost column contains a 
transcript of the text entered and received at the 
terminal. The center column represents the area of 



temporary files. The center column is divided into two 
sections: the left section shows the life span of each 
program (primary file) entered; the right section is the 
area of the remaining temporary files and shows when 
temporary files enter the working area and how long they 
remain. The rightmost column represents permanent files. 
It shows when a copy of a temporary file is made into a 
permanent file and how long that permanent file exists. 

Temporary files are created with the NEW command or a 
copy of a file that already exists in the system. All 
temporary files are released when they are lagged off the 
system. Local files include temporary and direct access 
files assigned to a job. 

Duration of a file is indicated by a solid vertical line. An 
arrow point signals destination and termination. The 
copying of a file from Ifn to pfn, or the reverse, is 
indicated by a broken horizontal line. 

For a complete explanation of system commands, consult 
the Network Products Interactive Facility reference 
manual or the NOS Time-Sharing User's reference manual. 
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Keyboard Text 



Temporary Files 



Primary 
File (OLD, 
NEW, LIB) 



Local 
(Ifn) 



Permanent Files 



(phi) 



NEW.PROG1 
READY. 

090 FILE #1 = "WORK1" 
095 FILE #2 = "WORK2" 
100 WRITE #1,1,2,3 
110 PRINT #2, "A", "B" 
120 RESTORE #1 
130 RESTORE #2 
140 END 
RNH 

RUN COMPLETE. 

SAVE 
READY. 

NEW.PROG2/ND 
READY. 



145 FILE #1 = "WORKV 
150 READ #1,X,Y,Z 
160 PRINT X;Y;Z 
170 END 
RNH 

1 2 3 

RUN COMPLETE. 

SAVE,WORK1=PERMl 
READY. 

SAVE,WORK2=PERM2 
READY. 

NEW.PROG3 
READY. 

175 FILE #3 = "PERM1" 
177 APPEND #3 
180 WRITE #3,4,5,6 
190 RESTORE #3 
200 END 

GET.PERM1 
RNH 

RUN COMPLETE. 



REPLACE.PERM1 

OLD.PROG1 
READY. 

LNH 

090 FILE #1 = "WORKV* 
095 FILE #2 = "WORK2" 
100 WRITE #1,1,2,3 
110 PRINT #2, "A", "B" 
120 RESTORE #1 



PROG1 



WORK1 WORK2 



PROG2 



-PROG1 



PROG1 

WORK1 WORK2 



PROG3 



PERM1 - « 



PROG1— - 



-PERM! 



■»- PERM2 



Figure D-4. File Control Commands (Sheet 1 of 2) 
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Keyboard Text 



Temporary Files 



Primary 
File (OLD, 
NEW, LIB) 



Local 
(Ifn) 



Permanent Files 



(pfn) 



130 RESTORE #2 
140 END 
READY. 

PURGE.PROG1 
READY. 

NEW.PROG4 
READY. 

GET,NEW1=PERM1 
READY. 

200 FILE #4 = "NEW1" 

210 RESTORE #4 

230 READ #4, A 

240 PRINT A; 

250 IF MORE #4 THEN 230 

270 PRINT "ALL OUT" 

280 END 

RNH 

12 3 4 5 6 ALL OUT 

RUN COMPLETE. 

CATLIST 

CATALOG OF USER007 

INDIRECT ACCESS FILE(S) 

PERM1 PERM2 

DIRECT ACCESS FILE(S) 

2 INDIRECT ACCESS FILE(S), TOTAL PRUS = 14. 

DIRECT ACCESS FILE(S), TOTAL PRUS = 0. 

READY. 



1 

PROG1 



PROG4 



PROG1 



PERM1 



NEW1 



PERM2 



Figure D-4. File Control Commands (Sheet 2 of 2) 
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FUTURE SYSTEM MIGRATION GUIDELINES 



This appendix contains programming practices 
recommended by CDC for users of the software described 
in this manual. When possible, application programs based 
on this software should be designed and coded in 
conformance with these recommendations. 

Two forms of guidelines are given. The general guidelines 
minimize application program dependence on the specific 
characteristics of a hardware system. The feature use 
guidelines ensure the easiest migration of an application 
program to future hardware or software systems. 



CLK$ and DAT$ Functions 

Do not dismantle values returned by the CLK$ and DAT$ 
functions; use the result as a whole. The order of fields in 
the result might be different in a future version of BASIC. 



ASC Function 

Do not use the ASC function, 
function instead. 



Use the equivalent ORD 



GENERAL GUIDEUNES 

Good programming techniques always include the following 
practices to avoid hardware dependency: 

• Avoid programming with hardcoded constants. 
Manipulation of data should never depend on the 
occurrence of a type of data in a fixed multiple such 
as 6, 10, or 60. 

• Do not manipulate data based on the binary 
representation of that data. Characters should be 
manipulated as characters, rather than as octal 
display-coded values or as 6-bit binary digits. 
Numbers should be manipulated as numeric data of a 
known type, rather than as binary patterns within a 
central memory word. 

• Do not identify or classify information based on the 
location of a specific value within a specific set of 
central memory word bits. 

• Avoid using COMPASS in application programs. 
COMPASS and other machine-dependent languages can 
complicate migration to future hardware or software 
systems. Migration is restricted by continued use of 
COMPASS for stand-alone programs, by COMPASS 
subroutines embedded in programs using higher-level 
languages, and by COMPASS owncode routines used 
with CDC standard products. COMPASS should only 
be used to create part or all of an application program 
when the function cannot be performed in a 
higher-level language or when execution efficiency is 
more important than any other consideration. 

FEATURE USE GUIDELINES 

The recommendations in the remainder of this appendix 
ensure the easiest migration of an application program for 
use on future hardware or software systems. These 
recommendations are based on known or anticipated 
changes in the hardware or software system, or comply 
with proposed new industry standards or proposed changes 
to existing industry standards. 



BASIC 3 

BASIC users should anticipate changes to BASIC caused by 
future availability of a new ANSI standard BASIC. All of 
the following guidelines except the first anticipate the new 
standard for BASIC. 



SUBSTR Function 

Do not use the SUBSTR function, 
substring notation instead. 



Use the equivalent 



DEF Function 

Do not redefine a user-defined function within a program. 
In the future, redefining a function might not be passible. 

RND Function 

Use the RND function without a parameter. The 
parametric form might not be supported in future versions 
of BASIC. 



CHANGE Statement 

Do not use the CHANGE statement. Use string functions 
or substring notation to manipulate characters. Do not 
manipulate the numeric codes for characters. 



END Statement 

Use the END statement in all programs. Future versions of 
BASIC might require the use of this statement. 

IF. . . GOTO Statement 

Avoid using this statement. Use F THEN instead. IF 
GOTO might not be supported in future versions of BASIC. 



ON ne THEN Statement 

Avoid using ON ne THEN ln x , ln 2 ,...ln n . Use ON 
ne GOTO lni, ln2-..ln n instead. The ON ne THEN 
form might not be supported in future versions of BASIC. 



Obsolete Forms 

Avoid using any statement or function that causes the 
compile-time diagnostic OBSOLETE FORM. The BASE 
statement, the CHANGE statement, and the SUBSTR$ 
function are examples of obsolete forms that should be 
avoided. 
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Collating Sequence 

Do not rely on the display code collating sequence (native 
collatng sequence in normal mode, non-ASCII character set 
is in use). The display code collation order might not be 
supported in future systems. 



Using Function Names as Variables 

Do not use a function name as a variable within a function 
definition (do not place the name on the right side of an 
equals sign). This usage might not be permitted or might 
generate code with a different meaning in future versions 
of BASIC. 



ANSI Form 

If both an ANSI form and a non-ANSI form exist, use the 
ANSI form. Non-ANSI forms might not be supported in 
future versions of BASIC. 



Exponentiation 

Use the circumflex character (<">) rather than two asterisks 
(**) for exponentiation. 

Multiple Assignments 

Do not use multiple assignments. The form of such 
assignments might change in future versions of BASIC. 

Use of Blanks 

Do not embed blanks within line numbers, keywords, 
variable names, and any other elements of the language. 



Presetting Variables 

Do not assume that variables will be preset to zero or null. 
Future versions of BASIC might not automatically preset 
variables. 



Simple and Subscripted Variable Names 

Do not use the same name for array variables as for scalar 
variables. The use of the same name for both types of 
variables is not supported by the ANSI standard for BASIC 
and might not be supported in future versions. 



Control Into FOR .. . NEXT 

Do not transfer control into a FOR . . . NEXT loop. Results 
are unpredictable and future versions of BASIC might not 
allow it. 



Separate Keywords and Language Elements 



Characters In Unquoted Strings 



Do not run keywords and variable names together. A 
statement such as PRINTT might not be supported in the 
future versions of BASIC. 



Referencing Functions 

Define functions before referencing them. Future versions 
of BASIC might require the function definition to appear 
before the first reference to the function. 



Use only the characters plus, minus, period, blank, digit, 
and letter in unquoted strings. Future versions of BASIC 
might only allow these characters, if other characters are 
needed, use quoted strings. 

File Numbers 

Do not use file numbers greater than 255. Larger values 
might not be supported in future versions of BASIC. 
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DIFFERENCES BETWEEN BASIC 3.5 AND BASIC 3.4 



BASIC 3.5, the subject of this reference manual, is a 
version of BASIC 3.4 that was updated to conform to the 
American National Standard (ANS) for Minimal BASIC. 
Due to syntax and semantic changes to the product, 
BASIC 3.5 is not 100 percent upward compatible with 
BASIC 3.4. Therefore, some BASIC 3.4 programs operate 
differently when compiled under BASIC 3.5. The following 
text identifies these differences and, where possible, 
provides suggestions for modifying the program to 
compensate for the affected change. Differences between 
3.4 and 3.5 that are extensions (do no effect existing 3.4 
programs) are not listed. BASIC 3.4 binaries continue to 
operate the same, except in those cases noted below. 

ARRAY BOUNDARIES 



NOT ENOUGH DATA 

When insufficient data is entered in response to an INPUT 
request, BASIC 3.5 permits either the entire INPUT 
response or only the additional items required to satisfy 
the request to be reentered. To add data, begin the next 
response with a comma. BASIC 3.4 only allows the 
additional data required to be entered to complete the 
INPUT request. No programming changes can compensate 
for this difference. This BASIC 3.5 response also applies 
to BASIC 3.4 binaries run under the BASIC 3.5 library. 



NUMERIC DATA READ AS 
CHARACTER STRING DATA 



Unless otherwise instructed, in BASIC 3.5, the lower 
boundary (origin) of all arrays in a program is zero; in 
BASIC 3.4, the lower boundary is one. Therefore, arrays in 
BASIC 3.5 normally have one more element along each 
dimension than the arrays in BASIC 3.4. The OPTION 
statement using BASE n (was BASE statement in 
BASIC 3.4) is provided to set the lower boundary of an 
array to zero or one. Thus, if array subscripts are to begin 
with element 1 rather than element 0, use OPTION 
BASE 1 to change the origin to 1. (See OPTION 
statement.) 

ROUNDING VERSUS TRUNCATION OF 
NUMERIC VALUES 

BASIC 3.5 rounds all index, subscript, or pointer values 
that require integer values (for example, subscripts, TAB 
arguments, substring indexes, and ON statement indexes; 
BASIC 3.4 truncates these values to integer values. To 
truncate numeric quantities in a BASIC 3.5 program, use 
the INT function to force the truncation. 

TRAILING BLANKS IN UNQUOTED STRINGS 
OF DATA STATEMENTS AND INPUT REPLIES 

BASIC 3.5 ignores all' trailing blanks in unquoted strings of 
DATA statements and INPUT replies that use standard 
delimiters. BASIC 3.4 returns all trailing blanks of 
unquoted strings, unless the trailing blanks are at the end 
of a line (a string not followed by a delimiter), then 
BASIC 3.4 ignores the blanks. If trailing blanks are 
important to a program, enclose all unquoted strings with 
trailing blanks within quotation marks (for example; 
STRING1, STRtNG2,"THEN END "). 



In BASIC 3.5, unquoted strings in DATA statements that 
look like numbers can be read either as numbers or as 
strings. In BASIC 3.4, this type of string can only be read 
as numbers. 



OUTPUT FORMATTING 

BASIC 3.5 prints all integers greater than or equal to 1E7 
in E Format (d.ddddddE+nn) if no other format is 
specified. In BASIC 3.4, integer values up to 1E9 are 
printed in integer format. 



PRINT ZONES 

If a print zone is exactly filled in BASIC 3.5, the comma 
separator causes the print mechanism to skip over the next 
print zone causing spaces to be output; in BASIC 3.4, the 
next print zone is not skipped if the current print zone is 
exactly filled. In those cases where output must conform 
to BASIC 3.4 output, replacing the comma separator with a 
semicolon causes the print mechanism to be positioned at 
the first character of the next print zone. 

TAB POSITION 

In BASIC 3.5, TAB(n) causes the print mechanism to be 
positioned so that the next character prints in column n. 
In BASIC 3.4, TAB(n) positions the print mechanism so that 
the next character prints in column n+1. If positioning is 
critical, add 1 to all TAB arguments in the equivalent 
BASIC 3.5 program. 



INPUT VALIDATION 

BASIC 3.5 validates all interactive responses to an INPUT 
request as to data type, number of data items input, and 
range of data values, before assigning any of them to the 
program. BASIC 3.4 validates and assigns INPUT responses 
one at a time. No programming changes can compensate 
for this difference. 



NEGATIVE TAB ARGUMENT VALUES 

Wien BASIC 3.5 encounters a negative TAB value (TAB(n) 
where n<0), it resets the TAB value to 1 and issues an 
execution time warning diagnostic (error message 
number 197). BASIC 3.4 ignores negative TAB values. 
Change negative TAB values to positive TAB values in a 
BASIC 3.5 program to compensate for this difference. 
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BACKWARD TABBING 

In BASIC 3.5, TAB(n) positions the print mechanism to 
positon n on the next line, if n is less than the current print 
position; BASIC 3.4 does not allow backward tabbing. 



COLLATING SEQUENCE 

ASCII is the standard collating sequence used by BASIC 3.5 
for string comparison operations and for computing values 
of the CHR$ and ORD functions regardless of the 
character set being used. In BASIC 3.4, the collating 
sequence depends upon the character set being used. It is 
display code if a normal, non-ASCII character set is being 
used; it is ASCII if an extended ASCII character set is 
being used. In BASIC 3.5, the OPTION statement using 
COLLATE can be used to select the collating sequence 
native to the character set currently being used by the 
program. 



FOR . . . NEXT LOOP CONTROL VARIABLE 

In BASIC 3.5, the value of the loop control variable, upon 
normal exit from a FOR block via its NEXT statement, is 
the first value not used; in BASIC 3.4, it is the last value 
used. That is, in BASIC 3.5 the control variable value is 
the last value used plus one additional STEP value (+1 when 
no STEP value is specified), and in BASIC 3.4, the control 
variable value is the last value used upon exit from a loop. 

INPUTTING ARRAY DATA 

BASIC 3.5 allows an entire array being read by a MAT 
INPUT statement to appear on one INPUT line in row 
order. A delimiter following the last item on the line 
indicates that the response is continued on the next line. 
BASIC 3.4 allows only one row of the array in each input 
reply line. In BASIC 3.5, if only one row of the array is 
entered, the diagnostic NOT ENOUGH DATA is received. 
The data for the complete matrix can be reentered or the 
remaining data can be entered to complete the matrix by 
beginning the response with a comma. This BASIC 3.5 
feature also applies to BASIC 3.4 binaries run under the 
BASIC 3.5 library. 



REFERENCING DET BEFORE INV 

Referencing the DET function before a matrix has been 
inverted via the INV function is considered a fatal error by 
BASIC 3.5 BASIC 3.4 simply returns a value of zero if no 
matrix has been inverted. 



REDIMENSIONING RESULT MATRICES 

If required, BASIC 3.5 automatically redimensions a result 
matrix to accommodate the result; BASIC 3.4 generates a 
fatal error if the result matrix does not conform to the 
previously specified dimensions. No programming change 
can compensate for this difference. Redimensioning also 
applies to BASIC 3.4 binaries run under the BASIC 3.5 
library. 

INVERTING A SINGULAR MATRIX 

BASIC 3.5 does not diagnose as fatal error an attempt to 
invert a singular matrix; BASIC 3.4 does diagnose this as a 
fatal error. The DET (determinant) function must be used 
in BASIC 3.5 programs to determine if the matrix was 
singular or nearly singular; when DET returns a zero, it 
indicates that the matrix is singular. 



INVALID USE OF THE CHR$ FUNCTION 

If the argument given to the CHR$ function is not the 
ordinal of any character in the selected collating 
sequence. BASIC 3.5 generates a fatal error; BASIC 3.4 
returns a null string and no diagnostic. Use the ON 
ERROR mechanism to simulate 3.4 under 3.5. 



PRINT USING INTEGER FORMAT 

In BASIC 3.5, values are rounded to an integer when 
printing according to an integer PRINT USING image 
field. In BASIC 3.4, these values are truncated. To force 
truncated under BASIC 3.5, use the INT function in the 
PRINT list. 
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IMPLEMENTATION-DEFINED FEATURES 



BASIC, Version 3.5, is a revision of BASIC, Version 3.4. 
BASIC 3.5 conforms to the American National Standard for 
Minimal BASIC. The ANSI publication identifies some 



features as implementation-defined. These features and 
their definitions for BASIC 3.5 are shown in table G-l. 



TABLE G-l. IMPLEMENTATION-DEFINED FEATURES 



Item 



BASIC 3.5 Definition/Comment 



Initial value of numeric and string 
variables 



End-of-line (End of source line) 



End-of-input reply 

Precision of numeric constants 

Range of numeric constants 
Length of string constant 

Length of line 



Length of string associated with a string 
variable 

Precision of numeric value associated with 
a numeric variable 

Range of numeric value associated with a 
numeric variable 

End-of -print line 



Print significance-width (d) 
Print extra-width (e) 

Length of print zone 

Margin 
Input -prompt 



Numeric variables are preset to zero; string variables are 
preset to null. However, your program should not depend 
on this initialization. See Future System Migration 
Guidelines, appendix G. 

Indicated with carriage return when entering source lines 
at a terminal, with end-of-card when entering statements 
on cards. Trailing blanks are ignored by the BASIC com- 
piler or removed by the operating system. Internally, 
end-of-line is denoted by a zero-byte terminator. 

Same as end-of-line. 

Approximately equal to 13+ decimal digits. Not all stan- 
dards of BASIC support 13 digits of precision because only 
six digits are required. 

Range can be from 3.13152E-294 to 1.26501E+322. However, 
the standard only requires a range of 1E-38 to 1E+39. 

Length is limited only by line length. Since line length 
is longer for 3.5 than required by ANS, string constants 
can be longer than required by ANS. 

Length can be 150 characters; ANS requires only 72 
characters. 

Length can be 130, 170 6-bit characters; ANS requires only 
18 characters. 

Same as for precision of numeric constant. 



Same as for range of numeric constant. 

Internally, it is a zero-byte terminator; last two or more 
6-bit characters of a word are zero. 

Width is six digits, the minimum required by ANS. The d 
controls the number of digits printed when the default 
format is used. 

Width is three digits. The minimum required by ANS is 
two, but BASIC 3.5 uses three to accommodate the large 
exponents available on CYBERs. 

Length is 15 characters. The minimum required by ANS is 
d+e+6=15. 

Margin is 75 characters. 

Prompt is "?", the same as recommended by the standard. 
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SAMPLE BASIC PROGRAMS 



H 



The following sample programs illustrate some common 
features of BASIC. They are not presented as models for 
programming or mathematical techniques in problem 
solving. 



The program in figure H-4 illustrates the inversion of a 
Hilbert Matrix (n times n) by using BASIC matrix 
operations. 



The program in figure H-l illustrates the use of the DEF 
and GOSUB statements to calculate the value PI by 
evaluation of a series. 

The program in figure H-2 illustrates the use of a 
FOR . . . NEXT loop to calculate a table of factorials. 

The program in figure H-3 illustrates the sorting of a list 
of names (string variables) into alphabetic order. 



The interactive terminal session shown in figure H-5 
illustrates the CYBER Interactive Debug (CID) facility 
under NOS. Responses entered are in lowercase letters. 



10 PRINT "CALCULATE A 


VALUE FOR PI" 


20 PRINT 




25 Z=100000 




26 PRINT "NUMBER 0F I TERATI0NS"; Z 


27 PRINT 




30 A=l 




40 8=3 




50 DEF FNACD>=C1/D> 




60 DEF FN3CD>=CD-FNA(B>) 


70 DEF FNC<D>=<D*FNA<B>> 


80 FOR I=1T32 




90 A=FNB<A) 




100 G3SUB 150 




1 10 A=FNC<A> 




120 GOSUB 150 




130 NEXT I 




140 G0T0 170 




150 B=3+2 




160 RETURN 




170 PRINT "PI="J4*A 




200 END 




READY. 




RUN 




75/05/28. 10-35.3*. 




PROGRAM EXAMP 




CALCULATE A VALUE F0R 


PI 


NUMBER 0F 1TERATI0NS 


100000 


PI= 3.1416 





10 A=l 






50 Z=20 






60 F0R l- 


1T0 Z 




70 A=A*I 






75 PRINT 


"FACTORIAL"* I*A 


80 NEXT I 






100 END 






READY. 






RUN 






75/05/22 


. 10. 


37.37. 


PR0 ORAM 


EXAMP2 


FACTORIAL 


1 


1 


FACTORIAL 


2 


2 


FACT0RIAL 


3 


6 


FACTORIAL 


4 


24 


FACTORIAL 


5 


120 


FACT0RIAL 


6 


720 


FACTORIAL 


7 


5040 


FACT0RIAL 


8 


40320 


FACTORIAL 


9 


362880 


FACTORIAL 


10 


3628800 


FACTORIAL 


1 1 


39916800 


FACTORIAL 


12 


479001600 


FACTORIAL 


13 


6.22702E+9 


FACTORIAL 


1-4 


8.71783E+10 


FACTORIAL 


15 


1 .30767E+12 


FACTORIAL 


16 


2.09228E+13 


FACTORIAL 


17 


3.55687E+14 


FACTORIAL 


18 


6.40237E+15 


FACTORIAL 


19 


1 .21645E+17 


FACTORIAL 


20 


2.43290E+18 



Figure H-1. Using DEF and GOSUB Statements 



Figure H-2. Using FOR...NEXT Loop 
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5 PRINT "UNS0RTED LIST" 

10 READ N 

20 F0R I=1T0 N 

30 READ A$<I) 

40 PRINT AS<I> 

50 NEXT I 

60 F0R I=1T0 N-l 

70 F0R J=I+1T0 N 

80 IF AS(IXAS(J) THEN 120 

90 LET T$=AS(I> 

100 LET A$<I)=A$<J) 

110 LET A$CJ)=T$ 

120 NEXT J 

130 NEXT I 

135 PRINT 

140 PRINT "S0RTED LIST" 

150 F0R I=1T0 N 

160 PRINT ASCI) 

170 NEXT I 

180 ST0P 

200 DATA 8 

210 DATA MARY, J0HN, SUE, J0E, JACK, BILL,TEU, ANN 

READY. 



RUN 



75/05/22. 10.38.59. 
PR0GKAM EXAMP3 



UNS0RTED LIST 

MARY 

J0HN 

SUE 

J0E 

JACK 

BILL 

TED 

ANN 

S0RTED LIST 

ANN 

BILL 

JACK 

J0E 

J0HN 

MARY 

SUE 

TED 



10 


DIM A<20,20),B(20 


,20) 


20 


READ N 




30 


MAT A=C0NCN,N) 




40 


MAT B=C0N(N,N) 




50 


F0R I = 1T0 N 




60 


F0R J=1T0 N 




70 


LET AU,J) = 1/<I*J 


-1 ) 


80 


NEXT J 




90 


NEXT I 




100 


MAT B=INVCA) 




no 


MAT PRINT BJ 




190 


DATA A 




READY. 




RUN 






75/os/ae. io.40.Q4. 




PRO CRAM EXAMP4 




16. 


-120. 240. -140 




-120 


• 1200. -2700. 


1680. 


240 


• -2700. 6480. - 


4200. 


-140 


1680. -4200. 


2800. 



Figure H-4. Using Matrix Operations 



Figure H-3. Sorting String Variables 
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/basic 

OLD, NEW, OR LIB FILE: old.dbl 



READY. 
debug(on) -*- 



READY, 
lnh 

100 A=2.1 

110 B=A*A 

120 C$="SUBSTRING ADDRESSING' 

130 PRINT A,B 

140 PRINT C$ 

150 END 

READY. 

rn h ~m. 



CYBER INTERACTIVE DEBUG 

? sb 1.110-* 

? go 

*B #1, AT L.110— — 

? print a,b -* 

2.1 -« 

? cb, 1.110 -* — — 

? st line 1 .110...1 .120 - * 

? goto 100 -« 

*T #1, LINE AT L.110 

? a = 2.3 -« 

■> go ^ 

*T #1, LINE AT L.120 -« 

? b = 30 

? print a,b 

2.3 30 

? ct,* -"* — — 

? goto 100 -* 

2.1 4.41 

SUBSTRING ADDRESSING 

*T #17, END IN L.150 — 

? print a,c$ 

2.1 SUBSTRING ADDRESSING 

? a=20 

? c$ = c$(l:9) — : 

? print a,c$ 

20 SUBSTRING 
? lv — 

P.DB1 

A = 20, B = 4.41, C$ = "SUBSTRING' 
? goto 100 - 

2.1 



4.41 
SUBSTRING ADDRESSING 

*T #17, END IN L.150 
? quit -« 



SRU 



11.172 UNTS. 



RUN COMPLETE. 
debug(off) -«- 



READY. 



Enters CID facility command while in the BASIC 
subsystem. 



Compiles and executes the BASIC program. 



Sets breakpoint at line 110. 

Program reaches the breakpoint. 

CID prompts for new command. User enters PRINT a, b. 

B=0 since line 110 is not yet executed. 

Clears breakpoint at line 110. 

Sets line traps. 

Reaches line trap before line 110 is executed. 

Assigns 2.3 to variable a. 
Resumes execution. 
Assigns 30 to variable b. 



Clears all traps. 

Resumes execution at line 100. 



Defaults trap at program termination. 

Replaces c$ with substring of c$. 
I Lists all program values for program dbl. 
Restarts execution at line 100. 

Terminates this CID session. 
Turns off CID. 



Figure H-5. Using CID Under NOS 
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INDEX 



ABS function 5-2 

APPEND statement 7-6 

Arithmetic 

Arithmetic operators 2-5 
Relational operators 2-6 

Arithmetic expression evaluation 2-5 

Array 1-6, 3-3 

AS parameter 12-4 

ASC function 5-4 

ASCII mode 5-4, 12-4, A-l 

ASL function 4-8 

ATN function 5-2 

ATTACH command D-l 



BASIC character set 2-1 
BASIC control statement 12-1 
BASIC functions (see Summary Card) 
BASIC statements (see Summary Card) 
BASIC subsystem 10-1 
BATCH operations 

Control statement 12-1 

Deck structure 12-1 
BATCH subsystem 10-1 
BATCH terminal processing 

NOS 12-7 

NOS/BE 12-8 
Binary I/O statements 

Random access 7-2, 7-6 

READ 7-7 

WRITE 7-6 
Blanks 2-1 
Branching 

GOTO statement 4-1 

F statement 4-2 

F . . . THEN . . . ELSE 4-2 

ON GOTO statement 4-2 
BRESEQ command 11-4 



CALL statement 6-3 
CHAIN processing 6-5 
CHAIN statement 6-5 
CHANGE command D-l 
Character sets 

63- or 64- A-l 

NOS or ASCn 128- 

NOS/BE ASCII 95- 
CHR$ function 5-4 
CLK$ function 5-4 
CLK(x) 5-4 
CLOSE statement 7-3 
Coded format files 

DELIMIT statement 

Image 7-14 

INPUT filename 7-2 

INPUT statement 7-9 

MARGIN statement 7-21 

OUTPUT filename 7-3 

PRINT statement 7-11 

Standard print formats (numeric 

and string) 7-12 

PRINT USING statement 7-14 



A-l 
A-l 



7-10 



Comments 

REM statement, remarks 3-4 
Tail comments 3-4 
Compound relational expressions 2-7 
Concatenation 2-6 
Constants 

Numeric 2-2 
String 2-3 
COS function 5-2 

Control statement parameter examples 12-7 
COT function 5-2 
CR 7-10 
CYBER Interactive Debug (CID) 

Changing and testing program values 
F command for CID 9-6 
LET command 9-5 
CID Environment 9-1 
Displaying program variables 

LIST VALUES command 9-5 
MAT PRINT command for CID 9-5 
PRINT command for CID 9-5 
Introduction 9-1 

Other commands and features 9-6 
Resuming program execution 
GO command 9-3 
GOTO command 9-3 
Referencing BASIC line numbers and variables 
Line numbers 9-2 
Variables 9-2 
Setting and clearing breakpoints and traps 
Breakpoint commands 

CLEAR BREAKPOINT 9-3 
SET BREAKPOINT 9-3 
Default traps 
END 9-4 
ABORT 9-4 
INTERRUPT 9-4 
Trap commands 

CLEAR TRAP 9-4 
SET TRAP 9-3 



Data file usage 

NOS 10-4 

NOS/BE 11-4 
DATA statement (BASIC I/O) 1-4, 7-23 
DAT$ function 5-4 
Debugging 9-1 
Decimal constants 2-2 
Deck structures 

Compile and execute 12-2 

Compile, load, and execute 12-2 
DEF statement 5-11 
DEFINE command D-l 
DELIMIT statement 7-10 
DIM statement 3-3 
Diagnostics 

Compile time B-2 

Dayfile B-l 

Execution time 
Message B-5 
Error number B-ll 
Direct access file (NOS) D-2 
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EDITOR 1-15,11-1 
END statement 1-3, 3-5 
Entering a program 

NOS 10-1 

NOS/BE 11-1 
Error messages (see Diagnostics) 
Error and interrupt processing 

ASL function 4-8 

ESL function 4-8 

ESM function 4-8 

JUMP statement 4-7 

NXL function 4-8 

ON ATTENTION statement 4-5 

ON ERROR statement 4-7 
EXP function 5-2 
Exponential constants 2-2 
Expressions 

Arithmetic 1-4, 2-5 

String 3-4 

Relational 1-4, 3-5 
External programs 

CHAIN statement 6-5 
External subprograms 

CALL statement 6-3 



File control commands D-l 

Files and internal data blocks 
APPEND statement 7-6 
CLOSE statement 7-3 
DATA statement 7-23 
FILE statement 7-2 
IF END statement 7-5 
F MORE statement 7-5 
NODATA statement 7-4 
RESTORE statement 7-4 

File ordinal 6-1 

FILE statement 7-2 

FNEND statement 5-12 

FOR statement 1-6, 4-3 

Format 

Fields 7-16 
Image 

Fields 7-16 
Order restrictions 7-18 
Special cases 7-20 
Output format, numeric 7-12 
Output format, string 7-13 
Print zoning 7-13 
Statement structure 2-1 

Functions 

Mathematical functions 5-1 
Referencing functions 5-1 
System functions 5-3 
String functions 5-3 
User-defined functions 5-11 



GET command D-l 
GOTO statement 1-3, 4-1 
GOSUB statement, branching 6-1 



IF statement 1-5, 4-2 
IF END GOTO statement 7-5 
IF END THEN statement 7-5 
F MORE GOTO statement 7-5 
F MORE THEN statement 7-5 
F . . . THEN . . . ELSE statement 
Image statement 

Definition 7-14 
String format 7-13 
Fixed-point format 7-17 
Floating-point format 7-17 



4-2 



D-l 



Image statement (contd) 
Integer format 7-17 
Neuter 7-17 
Order restrictions 7-18 
Sign and edit options 7-17 
Special cases 7-20 

INPUT statements 

MAT INPUT 8-10 
INPUT 1-8,7-9 

Indirect access file (NOS) 

INT function 5-2 

Integer constant 2-2 

JUMP statement 4-7 



LENGTH (LEN) function 5-5 

LET statement 1-2, 3-1 

LGT function 5-2 

Library D-l 

Line numbers 1-2 

LIST command D-l 

Lists and tables 1-6 

Local files D-l 

LOC statement 7-8 

LOG function 5-2 

Login procedure (NOS) 

IAF 1-10 

Time-sharing 1-12 
Login procedure (NOS/BE) 1-12 
LOF statement 7-8 
Logical operators 2-7 
Looping 

FOR . . . NEXT statements 4-3 
LPAD$ function 5-5 
LTRM$ function 5-5 
LWRC$ function 5-5 



MARGIN statement 7-21 

MAT INPUT statements 8-10 

MAT PRINT statements 8-11 

MAT PRINT USING statements 

MAT READ statements 8-10 

MAT WRITE statements 

Matrix arithmetic 
Assignment 8-2 
Addition 8-3 
Subtraction 8-3 
Multiplication 8-4 
Scalar multiplication 

Matrix declaration 8-1 

Matrix definition 8-1 

Matrix functions 

Determinant (DET) 8-5 
Identity matrix (IDN) 8-5 
Matrix inversion (INV) 8-5 
Matrix transposition (TRN) 8-5 
One matrix (CON) 8-5 
Zero matrix (ZER) 8-5 

Matrix Input/Output (I/O) statements 
MAT WRITE statement 8-9 
MAT READ statement 8-10 
MAT INPUT statement 8-10 
MAT PRINT statement 8-11 
MAT PRINT USING statement 

Matrix operations 8-1 

Matrix redimensioning 8-2 

Matrix I/O 8-8 

MAX function 5-2 

M1N function 5-2 

Multiple-line functions (DEF -FNEND) 



8-12 



8-9 



8-4 



8-12 



5-12 
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ND D-l 

Nested loops 4-4 
NEW command D-l 
NEXT statement 1-6, 4-3 
NODATA statement 7-4 
NOS file handling 

Direct access permanent files D-2 

Indirect access permanent D-2 
NOS commands 

ATTACH D-2 

CHANGE D-3 

DEFINE D-2 

GET D-3 

LIBRARY 1-11, D-3 

LIST D-l 

NEW 1-11, D-l 

ND D-l 

OLD 1-11, D-3 

PURGE D-l 

REPLACE 1-13, D-3 

RESEQ 10-4 

RETURN D-l 

RUN 1-11, D-l 

SAVE D-3 
NOS/BE commands 

BRESEQ 11-4 

SAVE 11-4, D-l 
Numeric constant 2-2 
NXL function 4-8 



OLD command 1-11, D-l 
ON ATTENTION statement 4-5 
ON ERROR statement 4-7 
ON GOSUB statement 6-2 
ON GOTO statement 4-2 
Operations 

BATCH operations 12-1 

BATCH terminal operations (NOS) 10-1 
OPTION statement 3-2 
ORD function 5-7 
Ordinal file 7-3 
Output 

Example H-l 

Numeric formats 7-12 

Print zoning 7-13 

String format 7-13 



Permanent file access 7-2 

Permanent file (NOS) D-l 

POS function 5-7 

Predefined functions 5-1 

Primary file D-l 

PRINT statements 

MAT PRINT 8-11 
PRINT 1-2, 7-11 
PRINT USING 7-14 

Print zoning 7-13 

Program termination 

STOP statement 3-4 
END statement 3-4 

PURGE command D-l 



Quoted strings 2-3 



Redimensioning 8-2 

Relational expressions 2-6 

Relational expression oerators 2-6 

REM LIST 12-7 

REM statement (remarks) 1-2, 3-4 

Remote terminals (TTY) 10-1 

REM TRACE 9-1 

Renumbering BASIC lines 10-4, 11-4 

REPLACE command D-l 

RESEQ command 10-4 

RESTORE statements 7-4 

RETURN statement 6-2 

RETURN command D-l 

RND function 5-2 

ROF function 5-2 

RPAD$ function 5-7 

RPT$ function 5-8 

RTRM$ function 5-8 

RUN command D-l 



Sample programs H-l 

SAVE command D-l 

Secondary file D-l 

SETDIGITS statement 7-22 

SET statement 7-7 

SGN function 5-2 

Significand 2-2 

Simple relational expressions 2-6 

Simple string variables 2-3 

SIN function 5-2 

Single-line functions (DEF) 5-11 

SQR function 5-2 

Statement structure 2-1 

STOP statement 3-4 

String comparison 2-6 

String concatenation 2-6 

String constants 2-3 

String expressions 2-5 

STR$ function 5-8 

String functions 5-3 

String output formats 7-13 

Subprograms 6-2 

Subroutines 

GOSUB statement 6-1 
ON GOSUB statement 6-2 
RETURN statement 6-2 

Subscripted variables 2-3 

Substring addressing 2-4 

System functions 5-3 



TAB function 7-13 
Tail comments 3-4 
TAN function 5-2 
Temporary files D-l 
Terminal operations 

NOS 10-1 

NOS/BE 11-1 
Test and branch statements 

GOTO statement 4-1 

ON GOTO statement 4-2 

F statement 4-2 

IF... THEN... ELSE statement 4-2 
TEXT mode 10-1 
TIM function 5-4 



Random access 7-2, 7-6 
RANDOMIZE statement 5-3 
Random number generation 5-1 
READ statements 

MAT READ statements 8-10 
READ statement 1-4, 7-23 



Unquoted strings 2-3 
UPRC$ function 5-9 
User-defined BASIC subroutines 
User-defined functions 5-11 
Using data files 10-4, 11-4 
USRJ function 5-4 



6-1 



19983900 G 



Index-3 



VAL function 5-9 WRITE statements 

Value assignment 3-1 MAT WRITE 8-9 

V ariables WRITE 7-6 

Simple, numeric 2-3 

Simple, string 2-3 

Subscripted 2-3 

Substring addressing 2-4 
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BASIC VERSION 3 SUMMARY CARD 



BASIC STATEMENTS 



LANGUAGE ELEMENTS 



9AS*C CHARACTER SfcT 



ule«i i"> 4a!a e-"*j airing ronjlantt- 
VARIABLES 



A ™jt»dc hui«*!i- corauiti of a mnjl* alphabets 
rfinrnrier or • *nqte alphabetic chtri 
numafir character, f-ajmartc lettable* 
ttmfore program eiaruttan. 



OVERATOHS 



A airing >mi*Ii 
fallowed by a 

character and a 



■ arqli alphabetic chwfcriftr 
ar riqn (t> « a atngle »lpf*he1« 
■iwiir character follow*"! &r ■ dollar 



Miltipltrtlioni 
Addition; unary plua; 
Subtraction: unary min. 

a« < 
Equal to: 
Not e<?al to: 

r.reatsr than: 

Greater than or equal tt 

Leaa than: 

Lea* Iliad or "qua I to: 



FORMAT FBJ> SPEOFICATIOH 
CHARACTERS 



alpha*** jc rharaciar. etphanu- 

1 riirraflcy atejH floating when mora than one 

* rhar* protect; leading blarart rap lac ad by * 

c Left-ajatify airing; right truncate 

> Right -iuatify atfintj: left truncate 

,-. rioatinj point indicator 

Plu» prira:e=* far poaitiv* vefcjet; mtimji li» negative 
flierat prireed tor peatti** •aUieej minu» for negative 



«- utaarJ «i pawiVir 



Logical negation; NOT 

Logical muttlplicalkri or Irearaerliorr. AhaD 

I ogral addalon or union: OR 

Sv-t Dparanr. 

Strift) Curretenetion; - 

STATEMENTS AND FUNCTIONS 

Throughout the following aummary tablee theea m 
«* ua*4. Terrru tn lhaaa Labia* that an '" 
raprnaBnt — onJn or tyrrtoola auppllatl by the programmer, 

a Alt*a*.trtb- identifier 

r Numeric or atrin) content 

C+-. An, character or carriao* return 



t-R rfi. ,. 



COMBTTANTS 



hva •akje; '--a blanki lac p-aaili** 
1.r< .«1l*; t«« blanfca ftr poaitiva 



exporerrctal rajrnber in the range J.2SM1 « 10*" M/ 
»V1*1S? . 10-29* mnll „ accurate to a manimum of 14 
darrmal digit*. 

A (trinq conatent conetata of a atring of D to 1)1070 S-bil 
character! w to 6«« 6/17-bit charade™ .n dieplei 
(•ode. 



Exponential Comte nb 

.r.F., .n.nf.i ..nF.a ; n.E.- 



F_xp orient 

Bam 10 scale factor 



Matru identifier (I- or 2-dimeoaionel array) 

Mimeric array name 

Numeric rormtunt 

Numeric eipreaaion, conatant, or variable 

Relational otproiaicn 

String constant 

String etpreetion, cortatant, or variable 

c i impl^ numeric variable 

Fvvc-utable statement 

String variable 

Simple variabli- 

Varia 

roratant, variable, (unction, or r 
Enclosed elemanti are optional. 
Only one element mutt be aalac!< 
Rftpent elements es needed. 



Siring Comtami 



StitMent fomat 


Function 


Page No. 


UPPEKO fn# 


Allows the user to add jdditlonjt Inforajatttm 
to the end af an existing file. 


7-6 


CALL subra» (ej.e; ejQr 


Allows the user to access external subroutines 
by subprograRi name and pass up to 20 param- 
eters to that subroutine. 


6-3 


CHAIN it 


Executes progxMi on file specified by se. 
Program can exist as binary or BASIC source. 


6-5 


CHA1H #r* 


Executes progran on file whose ordinal Is ne. 
Program can exist as binary or BASIC source. 


6-5 


CLOSE #ne 


Sets the naaed file to the beginning of infor- 
mation and detaches It froa BASIC to allow 
reassigfaaent by another FILE stateawnt. 


7-3 


DATA C;,CJ C„ 


Creates a block of data internal to the BASIC 
prograa. 


7-23 


DEF FBI [(*n,5¥!,....sv ?0 )]»ne 
OEF FBiS [{*vi,sv2.....sy2o)]-s* 


Defines a new slngle-Hite nunwrtc or string 
(i'HaS) function to be used within the BASIC 
prog r a*. 


5-11 


EUT FMi [(svi t »2 ...,«»)] 


Defines the start of a new nuawjrlc w string 
aultlple-llne function. The end of the func- 
tion definition Is indicated by FNEHD. 


5-11 


DaiNlT (chj) , (ch3) 


Defines separators between Input (teas fro* 
ter*1nal. 


7-10 


DniNIT #i»!,(chi) (chj) 


Defines separators between input fteaw on 
specified file. 


7-10 


DIM "Krc] ne 3 ) ^(nci *3) 


Declares the dimensions of an array 
variable; nc awst be integer. 


3-3 


EM) 


Specifies end of prograxt; awst be last 

Statement in prograa. 


3-5 


FlLt #ne 1 .lfn l , »rar ? -lfn ? JfKn'lfrv, 


Defines file ordinal and equates tt to a 

file rwjrw 


7-Z 


f«W 


Specifies tr* end of a Multiple-line 
function definition. 


5-12 


F» «»-ei W ** {Sn^3} 


Begins a pregra* loop. 


a-3 


&09S In 


Transfers prograai control to a subroutine 
beginning at line maaber indicated. 


6-1 


GOTO In 


Interrupts the nomal sequence of prograai 
execution and transfers prograai control 
to Indicated line sorter. 


4-1 


' f EW'^fSrS! 1 " 


This statewnt is equivalent to the MDATA 
statearent except that this statement 
cannot refer to an interna) data block. 


7-5 


(GOTO In 1 


Transfers prograa control to line In or 
executes statement stm if relational 
expression 1s true. Control falls through 
to next line if r is false. 


4-Z 




Transfers prograai control to line In^ 
or executes statement st«i if relational 
expression r 1s true; transfers control to 
tine ln ? or executes st«; if r Is false. 


*,-Z 


IF NMEtr-J^Sln 


This state*aent Is the logical converse of 
the HCOATA and IF END stateawnts. 


7-5 


(luge) 
: character itrlrtq 


Specifies output fonaats. 


7-14 


«WT vj.yj » n 


Reads data fro* the terminal. 


7-9 


IPfWT (m.yj.v; v n 


Reads coded data frota specified file Inc. 


7-9 


JLH? ne 


Transfers control to statement where line 

irJaberane, 


4-7 


an] { ;;-^ ■•■-"}-. 


Assigns a value to a variable during 
program execution. 


3-1 


NMt&IR ntj 


Defines a right-hand margin for output to 
a terminal. 


7-Z1 


MAftGIN fnei.ne; 


Defines a right-hand margin for output to 
a specified file. 


7-Z1 


MAT ai-ai 


Matrix assignment. 


8-2 


HAT Pi^+arj 


Matrix addition. 


8-3 


HAT «i*2-ag 


Matrix subtraction. 


B-3 


HAT *i-ar?*ar) 


Matrix multiplication. 


B-4 


MAT ».(«)•» 


Matrix scalar multiplication by value of 
an expression. 


8-4 


MAT m-Irl¥(m) 


Inverts a matrix. 


8-5 


MAT m-TRN(m) 


Transposes a matrix. 


8-5 


MAT m«ZER 


(ne^.nej]) 




Returns a matrix of all zeros. 


8-5 


MAT ffl-CON 


(nei[,ne 2 ]) 




Returns a matrix of all ones. 


8-5 


HAT fflDR 


C«l[,ne2]) 




Creates an Identity matrix, 


6-5 
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Statement Format 


Function 


Page No. 


™*™{7^\^...^\ 


Reads matrices from Internal data block 
or reads matrices from file #ne in binary 
format. Can be used for redlnvens1on1ng 
a matrix. (See Matrix Redlmenslonlng.) 


8-10 


mmn \VjfW.:\i) 


Prints matrices on a terminal or prints 
matrices in a coded format on specified file. 


8-11 


MATPRlhTUS.M6J^ : "l d ^ d :: ^ d d ) 


Matrices to be formatted to an image 
statement (In) or an image (se) on a 
terminal. 


8-12 


hat fruit »« lisiiw {^;3 - 3 S:::ft -!- 


Matrices to be formatted to an Image 
statement (In) or an Image (se) on a 
specified file. 


8-12 


mat wroT{2L;"_i'"'*i „., 

I»ne,mi,m2,..,,m n f 


Inputs matrices from a terminal or a 
file fne. 


8-10 


HAT HRITE #ne,rni,m2,...,mn 


Writes matrices 1n binary format on a 
specified file. 


8-9 


NEXT snv 


Terminates a FOR. ..NEXT loop and incre- 
ments the value tested by the loop. 


4-3 


HCOATA In 


Tests data pointer for Increment beyond 
end-of-data block. Branches to In If 
end-of-1nformat1on is encountered. 


7-4 


NOOATA Ine, In 


Transfers program control to specified 
line number if file Is positioned at 
end-of-1nfornat1on. 


7-4 


OH ATTEHTIOH GOTO In 


Transfers control to In on runtime 
terminal Interrupt. 


4-5 


ON ATTENTION THEH In 


Transfers control to In on runtime 
terminal interrupt. 


4-5 


OM ATTENTION 


Turns on normal terminal Interrupt 
processing. 


4-5 


ON ERROR GOTO in 


Transfers control to In on runtime error. 


4-7 


ON ERROR THEN In 


Transfers control to In on runtime error. 


4-7 


ON ERROR 


Turns on normal error processing. 


4-7 


ON ne GOSUB ln 1( ln; . ln„ 


Permits a branch to a specific BASIC 
subroutine line number. The line ref- 
erenced Is dependent on the value of ne. 


6-2 


««.{S>1"1.1"2.....TV. 


Expression Is evaluated and rounded to 
an integer value; transfers control to 
line number tni If ne-1, line nuatur Inj 
If ne-2, and so forth until %. 


4-2 


^^ L E {?} [.COLLATE {SB*}' 


) 


Sets the lower boundary of all arrays being 
used by the program to base {ltro) or 
to base 1, and selects the collating 
sequence to be used for string comparison 
and for value computation of the CHRS and 
ORD functions. Both or only one of these 
functions can be selected. 


3-2 


PRINT ej d e; d.-.e,, d 


Prints data at terminal. 


7-11 


™«"»™{»:g5?5:::?;3} 


Output to be formatted by an Image statement 
(In) or an Image (se) on a terminal. 


7-14 


PRINT fne.ei d ej d...*^ d 


Prints data on specified file. 


7-11 


PRINT fne USING In.ej d *2 <*---*n d 


Output to be formatted by an Image statement 
on specified file. 


7-11 


RANDOMIZE 


Overrides the predefined sequence of random 
numbers generated by the RND function. 


5-3 


READ vi, V2 y n 


Accesses data created by OATA statements. 


7-23 


READ fne,vi,v z v n 


Reads binary data from named file created 
by WRITE FILE statements. 


7-23 


REM L.ST. {«^} 


Controls optional source listing. 


12-7 


(ALL \ 

rem trace, { part j 
(none) 


Controls optional trace facility. 


9-1 


REM chj...ch n 


Inserts comments tn program; c-h]....cri n 
represents any character string which does 
not trigger REN LIST or REM TRACE. 


3-4 


RESTORE 


Reinitializes data pointer to the first 

word of the data block. 


7-4 


RESTORE #ne 


Sets named file to beg1nn1ng-of-1nfon»at1on. 


7-4 


RETURN 


Resumes execution at statement following 
most recently executed GOSUB statement. 


6-2 


SET fnei,ne2 


Positions a file pointer to the desired 

relative word location which is to be ref- 
erenced by the next READ or WRITE statement. 


7-7 


SFTOIGITS ne 


Specifies number of significant digits for 
output. 


7-ZZ 


STOP 


Terminates program execution at places other 
than the END statement. 


3-4 


MRITE #ne,ei,eg e n 


Writes data 1n binary format on specified 
file. 


7-6 
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BASIC FUNCTIONS 



Function 


Meaning 


Page No. 


A8S(ne] 


Finds the absolute value of tie. 


5-2 


ASC(ch) 
ASC(abr) 


Returns the ASCII code In decimal of the character 1n Its 
argument. 


5-4 


ASL(ne) 


Returns the line number of the statement it which the last terminal 
Interrupt occurred. 


4-8 


ATTI(ne) 


Finds the arctangent of ne In the principal value range - 
*/e to + ■/?. 


5-2 


CfflJ(ne) 


Returns the character with decimal code (ordinal position in the 
collating sequence) that corresponds to ne. 


5-4 


CLK(m) 


Returns the time of day in hours and fractions of an hour in a 
24-hour scale. 


5-4 


CLKJ 


Returns the time of day as a string. 


5-4 


COS(ne) 


Finds the cosine of ne expressed in radians. 


5-2 


COT(ne) 


Finds the cotangent of ne expressed In radians. 


5-2 


DATS 


Returns the date as a string. 


5-4 


DET or DET[m) 


Returns the determinant of the matrix most recently Inverted by 
the INV function, or the determinant of matrix m. 


5-2 


ESt{r») 


Returns the line number of the statement that caused the most recent 
program execution. 


4-8 


ESH(rw) 


Returns the error number associated with the most recent program 
execution error. 


4-8 


EXP(ne) 


Finds the value of e to power of ne. 


5-2 


l"T(ne) 


Finds the largest integer not greater than ne. 
Example: INT[5.95)>5 and INT(-5.95)--6. 


5-Z 


LEN{«) 


Determines current length of string se. 


5-5 


LGT(ne) 


Finds the base 10 logarithm of ne; ne > 0; otherwise an execution 
error will cause the program to terminate. 


5-2 


LOC(ne) 


Returns the current word position In a file. 


7-8 


LOF(nt) 


Returns the length In words of the referenced binary file (ne). 


7-8 


LDG(m) 


Finds the natural logarithm of ne where ne > 0; otherwise an 
execution error will cause the program to terminate. 


5-2 


lPADJf.se, ne) 


Pads string se out to ne characters by adding spaces on the left 
of string se. 


5-5 


LTIWt(se) 


Trims string se of all leading space characters. 


S-S 


LURCS(se) 


Returns a string consisting of the se string value with all 
uppercase letters replaced by their lowercase equivalents. 


5-5 




Returns the maximum element in the list. 


5-2 




Returns the minimum element in the list. 


5-2 


HXL(m) 


Returns the line number of the statement where the program execution 
is to resume. 


4-6 


«D(se) 


Returns the decimal code (ordinal position) of a character in 
string se In the collating sequence being used. See appendix A. 


5-7 


or 
P0S(«i,«2) 


Returns the position of string se; within string sai. The 
position search begins with character ne. If ne 1s not Indicated, 
the default 1s the first character. 


5-7 


(WD or 
R*D{ne) 


Returns pseudo- random numbers from the set of numbers uniformly 
distributed over the range £ RMD < 1.0. For RHD, the same 

sequence of random numbers Is returned unless the predefined 
sequence fs overridden with the RAHOOHIZE statement. 

If ne > 0, a random number sequence 1s initialized based on the 
value of ne and the first number of the sequence is returned. 

If ne - 0, the next number 1n the established sequence of random 
numbers Is returned. If the sequence was not previously 
established by an ne > RHD reference, a standard constant Is 
used to initiate the sequence. 

If ne < 0, the first- RHD reference initializes a random number 
sequence based on the time of day and returns the first value of 
the sequence. Subsequent ne < RHD references return the next 

number In the sequence. 


5-2 


K)F(ne) or 
ROr*(ne,ne) 


Finds the value of the first argument rounded to the number of 
decimal places specified by the second argument. Omission of ne 
rounds variable ne to the nearest Integer. 


5-2 


RPADttse.M) 


Pads string se to ne characters by inserting blanks on the right 
of string se. 


5-7 


RPTJ(se.ne) 


Returns the string created by repeating the se string ne times. 


5-8 


RTRMl(se) 


Trims string se of all trailing space characters. 


5-8 


SGN(ne) 


Assigns a value of 1 if ne is positive; if ne is 0; or -1 if ne 
1s negative. 


5-2 


SlN(ne) 


Finds the sine of ne where ne Is an angle expressed 1n radians- 


5-2 


SQR(ne) 


Finds the square root of ne whe>~e r»e > 0, otherwise an execution 
error causes the program to be terminated. 


5-2 


STRJ(rw) or 
5TRifne.se) 


Converts numeric value ne to string representation. The result 1s 
controlled by image string se. If present. 


5-8 


TAB(ne) 


Moves print line to position ne. Can only be used in PRINT 
statement. 


7-13 
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Function 


Meaning 


Page No. 


TAN(n«) 


Finds the tangent of ne where ne is an angle expressed in radians. 


5-2 


TIM(x) 


Returns elapsed time in seconds (x is a dummy argument). 


5-4 


UPRCt(se) 


Returns string se with all lowercase letters replaced by their 
uppercase equivalents. 


5-9 


USRt 


Returns the NOS 7-charaeter user name (number). Under HOS/BE this 
function returns the string tfSERNUM. 


5-4 


VAL(se) 


Converts string se to Its numeric value. 


5-9 



BASIC CONTROL STATEMENT 



B omitted Do not produce relocatable binary. 



Vinrit* relocatable binary a 
Write relocatable binary o 



file BIN. 
file lfn. 



BL cxn It tod Suppress page ajecta on output lilting. 

BL Do not tuppre** page eject* on output 

Hating. 



DB Same at DB=B/DL. 

DBaOfll Force binary generation and/or program 
execution regardless of compilation 
error*. 

DB=0/DL Activate program tracing as controlled 
by REM TRACE debug line*. 



DB-O/tr Trace* all statament* regard let* of 
REM TRACE debug lines. 

DB=TR Same aa DB=B/DL/TR. 

DBxID Same aa DB.fi/DL/ID. 



omitted Write comp lie-time error diagnostic* on 
the file apeclfled by the L psrameter- 
If L=0 than write diagnostic* to 
OUTPUT. 



EL omitted Writ* warning diagnostic* and fatel 

EL=W complle-tlme diagnostic* on the file 
specified by the Ep 



Write only fatal compile-tims 
diagnostic* on the file apeclfled by the 
E parameter. 



If no B parameter la specified, execute 
complied program without loading. If 8 
parameter 1* apeclfled, do not execute 
complied program. 



GO=0. Do not execute compiled program 



Mfn Compile source program from file lfn. 

3 omitted Read data from default file INPUT. 



Jslfn Read data from default file lfn. 

J=0 No default runtime data file. 



omitted If batch Job, write camp lie-time output 
on default output file OUTPUT. If 
interactive fob, euppreta complle-tlma 
output. 



Write, comp lie- time output on file lfn. 
Suppres* comp He -time output. 



LO omitted Write aource listing on the file 
LO ipeclfled by the l_ parameter. 

LO=5 



1.0=0/0 VA-lte object Hating only on the file 
apeclfled by the L parameter. 



Turn off all list options. 



PD omitted Use the installation default print 
density on the file* specified by the I. 
and K parameter*. 

PD=fi Use a print denalty of 6 line*/ inch on 
the flies apeclfled by the L and K 

parameter*. 

PD Use a print denalty of S Unas/inch 

PD=fl on the file* specified by the L and K 

parameters. 



PS omitted If PD is not specified, use installation 
default page size for the file apeclfled 
by the L parameter. If PD b ipeclfled, 
use PSsPTXcfefBult PSjfldafauit PD). 

PS-n Uae a page size of n lines/page; 

4<n£ 32766. 
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BASIC CONTROL STATEMENT PARAMETERS 



Compiler Llstable Output 
L Compile-Time List File 

omitted Default file OUTPUT. 

L File OUTPUT. 

L=lf n File lfn. 

L=0 None. 



Compiler Binary Output 
B Binary File 

omitted None, 

or B=0 

B File BIN. 

B=lf n File lfn. 



LO Listing options 





omitted 


Source listing on L. 


or 


LO 


Parameter file. 


or 


LO=S 






LO=0 


Object listing on L. 
Parameter file. 




LO=0/O 


Object listing only on L file. 




LO=0 


None. 


BL 


Burstable Listing Control 




omitted 






BL 




PD 


Print Density Control 




omitted 


Default on L and K. 
Parameter files. 




PD=6 


Density 6. 




PD=8 


Density 8. 


or 


PD 





DB Debug, Trace, and Force Binary 
Generation and/or Program 
Execution 

omitted None activated. 

DB=0 Debug and trace not activated. 

DB Default(DB=B/DL). 

DB=0/B Execute normally regardless 

of compilation errors. 
DB=0/DL Program tracing with REM Trace. 
DB=0/ID Interactive debug (CID tables 

and special code). 
DB=0/TR Trace all statements. 
DB=TR Trace added to default list. 

DB=ID Interactive debug added to 

default list. 



PS Page Size Control 
omitted Default. 

PS=n (n is 4 < n < 32768) 

E Compile-Time Error File 

omitted L parameter file, if no 

L file, OUTPUT. 
E File ERRS. 

E=lfn File lfn. 

EL Error Level Control 

omitted Fatal and warning to 

or EL=W E parameter file. 

EL=F Fatal only to E file. 



Compiler Input 

AS ASCII Character Set 



Program Execution 
AS ASCfl Mode 



omitted 
or AS=0 
AS 



omitted 

AS=0 

AS 



Normal (non-ASCII). 
Encoded and run in ASCII. 



Run in normal (non-ASCII) mode. 
Run in ASCII. 



I Compile-Time Input 

omitted File INPUT. 

I File COMPILE. 

I=lfn File lfn. 



GO Execution Control 

omitted Execute without loading 

if no errors. 

GO Same as omitted. 

GO=0 Inhibits execution. 

J Execution-Time Input File 

omitted Default file INPUT, 

or J 

J=lfn Default file lfn. 

J=0 None. 

K Execution-Time Print File 

omitted Default file OUTPUT. 

K Same as omitted. 

K=lfn Default file lfn. 

DB Debug and Trace 

(see Compiler Binary Output) 
PD Print Density Control 

(see Compiler Llstable Output) 
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